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ABSTRACT 



Traditional approaches to database system design and implementation involve text-oriented 
data access with their inherent lack of modularity, extensibility and modifiability. An alternative 
to this traditional approach is using visual interface for the design and implementation of 
databases. This alternative approach involves using software development tools(toolkits) to ensure 
modularity, extensibility and modifiability. To study the effectiveness of using visual interfaces, 
we have designed and implemented a sample application using KnowledgePro(Windows), a tool 
for rapid application development under Windows. 
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I. INTRODUCTION 



A. MOTIVATION 

Recent advances in science and technology have made high-resolution graphics an 
available presentation medium on mainframes and personal computers. Tremendous 
advances in computer hardware have also contributed to the demand for software 
applications which take advantage of these hardware capabilities. As a result of these 
changes is the flourishing of database applications employing visual interactions as means 
of communication between users and their data base systems. 

Almost all traditional programming languages developed to date have a text-based 
syntax and structured modularized software development approach. Creating a graphical 
display in traditional approach is to write program which accepts parametized input, 
examine a database, and then make calls to a graphic subroutine package to create the 
desired display. This approach involves using relatively low level procedural languages 
such as Ada, or C. The complex nature of Visual Interface software requires unacceptable 
amounts of time to design, code, test and maintain the software. 

By using a relatively a new approach, this time problem can be overcome. This new 
approach involves using Software Development Tools (toolkits) to develop Visual 
Interface software. Toolkits should be designed to ensure reusability, modifiability and 
extensibility. That also means, the tools should help ensure consistency, ease of 
maintenance, and expedient implementation. These characteristics should be used as 
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criteria for selecting a toolkit. Typically, these toolkits provide a collection of standard 
objects that should be powerful enough to be used to build visual interfaces with small 
amounts of code. For these reason, it is necessary for database managers to find a toolkit 
that support the desired characteristic. 

Many different Visual Interface Development Tools have been proposed in recent 
years. One of the promising toolkit that supports the desired characteristics is 
KnowledgePro (Windows). KnowledgePro (Windows) contains high-level commands for 
manipulating screen objects. It also utilizes direct manipulation of objects in the database, 
which extremely facilitates using and learning the system. 

Tlie goal of this thesis is to study the ease and the effectiveness of visual interface 
development tools. To achieve the goal, we demonstrate the design and implementation 
of prototype application Emphasis Area Information System (EAIS) using toolkit 
KnowledgePro(Windows). This system includes the required and optional electives for 
each emphasis area supported by the database system which enables Computer Science 
personnel to select elective from an interactive scheduling program. 

B. THESIS ORGANIZATION 

Chapter II will address some background information for the thesis, beginning with 
a discussion of visual interface. Discussion will include visual programming, the 
categories of visual programming, the advantages and disadvantages of each category in 
general. We then present the features of window interface and, finally, the overview of 
KnowledgeF*ro (Windows). 
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Chapter in will include a discussion of a prototype implementation created with 
KnowledgePro (Windows). The discussion will describe the problem statement, the goals 
of design and implementation, the Emphasis Area Information System, using the proposed 
software KnowledgePro (Windows). 

Chapter IV will evaluate the application development process. We then discuss the 
category of KnowledgePro (Windows), its advantages and disadvantages compared to 
other Visual Interface Development Tools Toolbook. Finally, chapter V will present the 
conclusion of the research. 
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II. BACKGROUND 



In this chapter, we describe some background information of the thesis. Section A 
looks at the significance of visual interface for human being. Section B discusses the 
features of window interface. The final discussion is an overview of corresponding 
software development tools which is used in our research. 

A. VISUAL INTERFACE 

During the human-computer interaction, most information conveyed by computer 
is presented visually, typically by means of dynamic display device. Today, the majority 
of these devices are cathode ray tubes (CRTs), although other devices such large-scale 
liquid-crystal displays may be more common in the future. No matter what display 
technology is used, the content and format of information presented will always have 
substantial impact on the usefulness and efficiency of the interaction. In the human- 
computer interaction, visual interface affects both the user initial impression of the 
interface and system’s longer-term usefulness. Visual interface comprises all the graphic 
elements of interaction, including overall screen layout, menu and form design, use of 
color, information codings, and placement of individual units of information with respect 
to one another. Therefore, graphical displays play important role in visual interactions. 

The trend in the design of a database systems is towards more visual forms of 
interaction. The means of communication is no longer simple comprehension of written 
words, but interpretation of visual and spatial properties of graphical items including 
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icons, windows and menus. We believe a visual interface holds a best potential as a end- 
user interaction tool. 

In recent years, many visual interface to database systems have been proposed(Hero 
1980, Lars 1984, Wu 1986, Wu 1987, Wu 1988) with different approaches and different 
designs. Good visual interface design strives for clarity, consistency, and attractive 
appearance(Foley, 1987). Wu and Hsiao (1988) have identified six principles for the 
development of visual interface design GLAD (Graphics LAnguage for Database). The 
program should be able to : 

• Provide more information when asked. 

• Recover from the unintended or erroneous operation. 

• Perform the same operation in more than one way. 

• Perform logically equivalent operations in a consistent manner. 

• Display multiple information at the same time. 

• Display multiple views of the dame information. 

The important of visual interface design has been demonstrated in a variety of 
studies. For example, Tullis (1981) found that redesigning a key display from a system 
for testing telephone lines resulted in a 40% reduction in the time required by the user 
to interpret the display. Wu and Hsiao (1988) found that designing GLAD interface 
utilizes direct manipulation of objects in the database through the use of buttons and other 
controls which make using and learning the system extremely easy. Likewise, Keister and 
Gallaway (1983) found that redesigning a series of screens resulted in a 25% reduction 
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in the total processing time and a 25% reduction in error rates. 

Visual information such as graphical representation and pictures are more powerful 
than words as means of communication. Graphics and pictures also aid understanding and 
remembering. In this section we discuss visual programming, the categories of visual 
programming and its advantages and limitations each category in general. 

1. Visual Programming 

In the early days of the interactive computing when the hardware and software 
were limited, system designers focused on processor efficiency, commonly more at the 
expense of the user than on the human convenience. Additionally, as we stated in chapter 
I, almost all traditional languages were not designed for visual interactions. 

However, as hardware costs dropped and computer systems became more 
widespread, data set sizes grow, algorithms become more complex, the cost of user’s time 
greatly increase. The price of RAM chips fell enough to accommodate the huge memory 
demands of bit-mapped graphics. These hardware and personnel costs, coupled with 
competition in the marketplace, and the need of visualization systems, have caused 
designer to focus on human-computer interface. This situation gives challenge to designer 
to bring computer capabilities more powerful than currently available, usefully and simply 
to the user without special training. 

As a result, in recent years, the use of visual information has gained 
momentum in programming. This kind of programming, called visual programming, is 
done through visual interaction with the system. Visual programming provides more direct 
communication between a person and a machine and makes it easier to create programs. 
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Visual programming makes greater use of extensive visual information processing 
capabilities of human, and by doing so, provide for totally new types of human-computer 
interaction(Tullis, 1988). 

2. The Categories of Visual Programming 

Programming can be defined as specifying a method for doing something the 
computer can do, especially in terms the computer can interpret. To attempt the ease of 
programming, of course, is not new. People have been trying to design or improve 
programming language for the ease of use and the ease of learning for several years. 
However, language design has been evolutionary rather than revolutionary. Since 
programming is currently to be made more accessible to people, it become apparent that 
radical departure from traditional programming into visual programming. 

They are several aspects of programming : the languages and environment 
used for the specifications; the specifications themselves; the display of data involved in 
the execution of the specifications; the determination of whether the computer has 
executed a specification as expected; etc. All aspects of programming can be applied by 
visual programming. To determine whether a specific software is visual programming or 
not, is the consideration of some meaningful graphical representations must be used in 
the programming process. 

From the recent work reported in the literature, we see that visual 
programming progress in two directions. In one direction, languages are designed for 
handling visual information; for supporting visual interactions; and for programming with 
visual expressions. In another direction, pointing devices and graphical representations are 
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used to provide visual environments for program development and execution; for 
information retrieval and presentation; and for software design and understanding(Nan C. 
Shu, 1988). 



a. Languages for handling Visual Information 

This language is designed to process image or pictorial information. The 
image processing systems designed for handling of two-dimensional pictorial data that can 
be applied for specific purpose such as an engineering, a geographical, a medical and a 
scientific applications. Now, incorporation between conventional database query languages 
and image processing systems have already be implemented as augmented conventional 
query languages. Languages fall into this category are GRAIN( the Graphic -oriented 
Relational Algebraic INterpreter), QPE(Query-by-Pictorial-Example), QBE(Query-by- 
Example), PSQL(Pictorial Structured Query Language). 

The benefits of the system that it can store and retrieve pictorial 
information into database. The system also includes zooming technique, such as vertical 
zoom, horizontal zoom and diagonal zoom, makes the system extremely attractive. The 
complexity increases when we have a large number of pictures or very large pictures. 

b. Languages for supporting Visual Interaction 

Languages in this category are mainly designed to define, create, and 
manipulate pictorial symbols. It is also called Iconic Programming. They are motivated 
by the need to have the ease of using and manipulating of pictorial data. The languages 
that fall in this category, generally support visual representations and visual interactions. 
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Although the languages themselves are actually textual, not visual. Languages fall into 
this category are ICDL(icon-class description language), HI-VISUAL, and Squeak. ICDL 
is language that consists of several statements. Each statement accepts some value and 
performs some graphical operation. HI-VISUAL is a language supporting visual 
interaction in programming. Squeak is a language supporting communication with a 
pointing device. 

The advantage of this approach over textual programming is that it can 
make learning and understanding easier, especially for non-computer specialists. Iconic 
is effective for introductory courses in languages. Hirakawa, Tanaka, Ichikawa(1984) 
proved through an experiment that iconic languages are easier to learn than textual one. 
Iconic programming may be good for small programs. In contrast, iconic programming 
is the wasteful use of screen space. It make difficult to make a large program. 

c. Languages for programming with visual expressions 

Languages that fall into this category, focus on allowing users to program 
with visual expressions. These languages are usually called the "visual programming 
languages". They use some visual representations(textual, numeric, pictorial or audio) as 
means of programming. Almost all visual programming languages reported from literature 
fall into three categories. First category is Iconic languages. In Iconic languages, icons 
and graphical symbols arc designed to play the central role in programming. Second, 
Charts and Diagrams are either incorporated into programming development, or made into 
machine-interpretable units to be used in conjunction with traditional programming 
languages. Third, Form-based languages lie between chart/diagrams and iconic languages. 
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d. Visualization of Data or Information about Data 

This approach typically concentrates in the environment area which deals 
with visualization of data or information about data. The data are kept in traditional 
databases. It expressed in graphical form and presented to the user in a spatial framework. 
Tools are provided which allow the user to make connection between data from these 
sources and their associated graphical representations. By using pointing device or 
joystick the user directly manipulates data in the databases. The examples of this category 
are SDMS(Spatial Data Management System), VGQF(Video Graphic Query Facility), 
INCENSE(a System for Displaying Data Structures) etc. 

e. Visualization of Program! Execution 

Languages in this category primarily designed to provide graphical 
representation for the visualization of programs, run time states and results. The goal is 
to use graphical displays to make the program development and testing easier. This is 
benefits not only to beginners learning how to program, but also to experience 
programmer dealing with program development. Activities in this area span from "pretty- 
printing" the source code, watching the execution program in multiple displays or in 
animated forms. 

/. Visualization of Software Design 

There are many activities in the software development process. The 
activities include requirement analysis, functional specifications, design decisions, 
implementation, system structures. Languages that fall into this category provide graphical 



10 



forms in the software development environment. People who design, use, or maintain 
interact graphically with the system. The examples of this category are 
PeaSys(Programming Environment for the Graphical Analysis of SYStems), PV (Program 
Visualization) system. 

g. Visual Coaching 

Visual Coaching actually attempts to produce program based on what has 
been shown. It can be characterized as "Do what I show you" or "Do according to my 
signal." Typically, the users show the computer how to do the desired computation by 
demonstrating with some sample data. The system then applies the demonstrated behavior 
for application with other data. Program development completely depends on interactions. 
Languages that fall into this category arc Programming By Example, Programming By 
Rehearsal, AutoProgramming. 

There are several advantages using this approach. This approach attempts 
to extend ideas to abstract concepts in programming. Because most people are much 
better dealing with concrete and specific objects than with abstract ideas. So, by 
demonstration and examples can help people to understand abstract concepts. The users 
find it easily to demonstrate what they want done. Additionally, this approach can assist 
the thinking and learning process of human beings. This approach relies on graphical 
interactions, so that program construction can be easy, quick, and enjoyable. On the other 
hand, this approach has limitations. First, physical limitations imposed by the space on 
the screen. Second, the difficulties to express an ideas in more abstract and general terms. 
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B. WINDOW INTERFACE 



Windowing interfaces got their start at the XEROX Palo Alto Research Center 
(PARC) in the mid-1970’s. In 1984, they were popularized by Apple Computers, 
particularly the Macintosh line, and later, followed by Microsoft and other developers. 
Window interfaces has become popular primarily because they allow separate activities 
to be put in physically separate parts of the computer screen. This physical separation is 
even more important when the operating system allow multiple activities to operate at the 
same time ("multiprocessing"). Window interface provides many of the important features 
of modem user-computer interfaces applications that show results in different areas of the 
display, the ability to resize the screen areas in which those applications are executing, 
pop-up and pull-down menus, and dialogue boxes, the ability of repositioned windows. 
Now, many windowing interfaces offer command-key or keyboard alternatives for many 
commands as well, providing both ease of use for novices and the less experienced, and 
speed for who can type faster than they point to menu and click on a selection. 

Window interface has two important parts. The first is the window manager, which 
allows the user to interact with computer, request that windows be created, resized, 
repositioned, opened, and so on. The second is the underlying functional component, the 
window system, which actually causes windows to be created, resized, moved, and so on. 

1. Window Manager 

The window manager uses user-interface services provided by the window 
system, promotes consistency and makes application easier. This includes all aspects that 
are visible to user such as a graphic package, editors, users interface tool kits, typescript 
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package, etc. The window manager consists into two parts : the presentation, which is 
composed of the pictures that the window manager displays, and the operations, which 
are the commands the user can give to manipulate the window and their contents. For 
example windows that demonstrate different aspects of the presentation, including patterns 
or pictures for the area where there are no windows, title lines and border for windows, 
etc may be provided the operations for windows include moving them around on the 
screen and specifying their size. 

One important aspect of the presentation of the window is whether they can 
overlap or not. This also some time called desktop metaphor, since windows can cover 
each other like pieces of paper can cover on the desktop. The other alternative is called 
tiled windows, which means that windows are not allow to cover each other. Some 
researchers still question whether overlapping windows offer more benefits than tiled, at 
least above a certain screen size, on the grounds that screens with overlapping windows 
become so messy the user gets lost. Others argue that overlapping windows more closely 
match user’s work patterns, since no one arranges the papers their physical desktop in 
neat horizontal and vertical rows. Among software engineers, however, overlapping 
windows seem to have won for the user interface world(Tekla s. Perry, and J., Voelcker 
1989). Another important aspect of the presentation of the window is the use of icons. 
These are small pictures that represent windows, to manage too many windows 
conveniently. 
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2. Window Systems 

Window systems implement the basic functionality of the window interface. 
They handle the display of graphics in windows and access to the various input devices 
(usually a keyboard and a pointing device such as a mouse). The primary interface of 
window systems is to other programs, and it is called the manager’s application or 
program interface. The programs built on the window systems are usually called client 
program, which in turn use the capabilities of the window system, itself usually called 
the server program. A graphics package is often integrated with the window system. 
Figure 2.1 shows how the window system and its graphics package typically relate to 
other system component. 




Figure 2.1 The Window System 
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C. KNOWLEDGEPRO(WINDOWS) 



Today, several application development tools for Windows 3.0 are available in the 
marketplace. Some products, like Asymetrix ToolBook offer a development environment 
for sophisticated end-users. Others, like Whitewater Group’s Actor are designed for 
programmers. One that fulfills the needs of both groups is KnowledgePro(Windows). 

KnowledgePro(Windows) combines several significant new technologies in a 
remarkably accessible toolbox: 

• Windows development capabilities 

• hypertext and hypermedia access 

• expert system strength 

This technology makes it poswble to create Windows applications that combine the 
ability to link among various elements of a collection of information, to enhance the end- 
user interface. It also makes it possible to build Windows programs that can exhibit 
behavior that would probably agree demonstrates at least rudimentary intelligence. (Dan 
Shafer, 1989) 

The following, we discuss how to start KnowledgePro, user interacts with computer, 
and some tools provided by KnowledgePro. 

1. Getting Started 

Figure 2.2 shows the development environment running a simple application. 
KnowledgePro(Windows) includes an integrated, multiple-document editor for easy 
manipulation of source code and text. We can run quickly just by selecting Go from the 
menu. Whenever an error occurs, we are return to edit window at the line which caused 
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the problem. KnowledgePro(Windows) provides a full set of debugging tools, including 
Trace, Single-step and the ability to interact with running application. 
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Figure 2.2 KnowledgePro Development Environment 



The backbone of KnowledgePro(Windows) is KnowledgePro language: an 
event-driven, message-based language with object oriented features like multiple 
inheritance. Language, editor and tools provided by Knowledge processing environment, 
let the user communicate expertise using the computer. The program that the user creates 
in this environment is called Knowledge base. The example of Knowledge base is shown 
below: 



window(). 
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contents is ’#e #mIntroduction#m 



#mMotivation#m 
#mThesis Organization#m’. 
text(?contents). 
topic mark(item). 

message is read(’course.txt’, concat(V/’?item), ’//’). 

close(’course.txt’). 

say(?message). 

text(?contents). 

end. 

Each Knowledge base consists of one or more topics that contain commands, 
functions, and subtopics. These topics perform actions, prescribe a behavior, or service 
hypertext requests. Topics specify what happens when the user clicks on or selects an 
object. Once the user links topic to screen object, the object will act according to its 
defined behavior. A special topic named mark can be defined as a "catch all" topic for 
a group of hypertext topic that behave in a similar manner. This means that if a topic with 
the same name as the hypertext selected can not be found, the topic named mark is called 
in its place. If mark is found, the hypertext phrase selected is passed to it as a parameter, 
otherwise a message will appear that says no more information is available. 

2. User Interaction 

One of the advantages of using a computer is that we can gather information 
from the user. Through the knowledge base, the designer communicates to the user, and. 
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can also provide a means for the user to respond. Like in real conversation, this response 
influences the subsequent direction of the exchange. KnowledgePro let users use many 
different screen objects such as buttons, check boxes, list boxes, radio buttons, edit lines, 
edit boxes, scroll bar etc., that can be used to accomplished a desired conversation. In 
other word, KnowledgePro includes the ability to create every kind of control available 
in the Windows environment. For example, edit lines are used for getting values from the 
user, and created using ediMine command. KnowledgePro provides many different types 
of screen objects. Each one has its own characteristics making it suitable for certain types 
of information. 

Any word, phrase or screen object can be linked to a KnowledgePro topic. 
This lets us build hypertext application with flexibility and power. By knowing which 
screen objects to select for which operations, how screen objects operate, how to arrange 
the objects in uncluttered, how to make visually pleasing display, we can create an 
effective visual interface application. 

3. Some Tools Provided 

Effective user interface and the communication of knowledge are becoming 
more and more important as computers, applications and users needs all increase in 
complexity. KnowledgePro(Windows) is provided by tools that lets the designer and the 
user communicate with each other about the user’s needs, the resources available and the 
task at hand as conversation were taking place. Some tools provided by KnowledgePro 
Windows are the following: 
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• The KnowledgePro Editor that lets the users arrange edit windows, edit text, make 
backup, compile and execute an open Knowledge base file. 

• Debugger that lets the users trace the program execution, list topics calls in a 
knowledge base, evaluate a knowledge base, inspect the running knowledge base 
with debug topics. 

• Dynamic Data Exchange(DDE) for communicating with another window 
application. 

• Design Tools that lets the users create, move and resize windows object in a 
window, generate the KnowledgePro code and copy to their application. 

• Dynamic Link Libraries(DLL) that lets the users run external DOS program and 
extend the environment. 
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m. DESIGN AND IMPLEMENTATION 



A. PROBLEM STATEMENT 

Traditional approaches to database-system design and implementation involve text- 
oriented data access with their inherent lack of flexibility and extensibility. An alternative 
to the traditional approach to database-system design and implementation is visual 
interfaces. How does visual interface software effectively support data manipulation in a 
database system ? What are the benefits of using visual interface compared to regular 
text-oriented access ? To answer these questions we have developed prototype application 
Emphasis Area Information System(EAIS) using visual interface software. 

1. The Current System 

The selection of electives by students in the computer science departement is 
a manual process. Currently, a student receives a curriculum package which includes a 
schedule of the required courses for the final five quarters. A short description of the four 
emphasis areas available along with the required and the optional electives necessary to 
fulfill the requirements for the respective emphasis areas. When the electives are offered, 
the student fulfill the requirements of at least one emphasis area. The current system 
involves excessive administrative effort on the part of the curriculum staff and the student. 

2. The Proposed System 

To provide a automated database system which will consist of the required 
and optional electives for each emphasis area enabling Computer Science personnel to 
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select electives from this interactive scheduling program. This system will support 
Computer Science students; the Academic Associate; the Curriculum Officer as well as 
the Registrar. It will enable the user to view the curriculum requirements, and the elective 
requirements to supports various emphasis areas. 




3. The Design Methodology 

The first step in designing a visual interface is to decide what the interface 
is meant to accomplish. We use a prototyping approach for developing and implementing 
EAIS. In this approach, we initially develop a conceptual design for implementation of 
EAIS. Figure 3.1 illustrates the Data Flow Diagram of our system. We then work on 
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elements of the functional design and dialog style. Finally, the prototyping tool software 
(KnowledgePro) can be used to develop and create screens or reports according to a 
dialog style prototype. The reason of using the prototyping approach in our system is to 
emphasize on speedy implementation and speedy modifiability. 

4. Design Considerations 

In our system, we apply a number of design principles to help ensure good 
human factors engineering in a design. They are to be consistent, provide feedback, 
minimize error possibilities, provide error recovery, accommodate multiple skill level, and 
minimize memorization. These and other principles are discussed more fully in (Morland 
1983, Foley 1987, Shneiderman 1987, Mayhew 1990, Wu 1988). 

B. THE GOAL OF IMPLEMENTATION 

To study the effectiveness of developing visual user interface application using 
software development tools, we present the experience of developing a simple visual 
interface database application using toolkit KnowledgePro(Windows). The goal of the 
implementation is to show how easy and what are the benefits of using KnowledgePro 
(Windows) to develop visual user interface of Emphasis Are Elective Information System. 

C. THE EMPHASIS AREA INFORMATION SYSTEM 

1. The Object of EAIS 

There are five objects in our system. Course, Quarter, Emphasis, Active and 
Student. The relationship of the objects of the system is shown in Figure 3JZ. 



22 



a. Course Object 

The Course Object is established by Registrar. The properties of the 



Course Object consists Course Number, Course name, time slot for lecture and laboratory 
and course description. 




b. Emphasis Object 

The Emphasis Object is established by the Academic Associate and 
various sponsor, to concentrate on specific area within Computer Science. The properties 
of the Emphasis Object include the name of the emphasis area, a description of the 
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purpose of the emphasis area and a listing of elective courses that will fulfill the emphasis 
area. The elective course consists of the Required Elective and Optional Elective. 

c. Elective Object 

This Elective Object is specified by the Curriculum sponsor via Academic 
Associate and is outlined in the Naval Postgraduate School Course Catalog 1991. The 
properties of the Elective Object consists of the required course number, emphasis number 
and the elective type. 

d. Quarter Object 

The Registrar provide the Tentative Course Offering booklet which 
contains information about the expected course offering for the next year at Naval 
Postgraduate School. The Quarter Object is the subset of that listing which constains the 
courses that fulfill the requirements of the various emphasis areas extracted from the 
Registrar’s Tentative Course Offering booklet. This properties of the Quarter Offering 
object includes the quarter name, course number, course name , when the course is 
projected to be offered in the next academic year. 

e. Student Object 

The Student Object contains a student academic information. This 
information is provided by the student. The properties of Student Academic Information 
include student’s name, rank, section, selected emphasis area, selected courses, taken 
courses. 
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2. Application(functional) Requirements 

The EAIS is supported by the database which consists of the objects described 
in the proceeding section. The system also interfaces with the external entities(terminators) 
in teaching decision on which the electives being requested will meet both the emphasis 
area requirements and the course scheduling constraints. The terminators that interface 
with the system include the Academic Associate, the Curricular Officer, the Registrar and 
the student user. The interfaces between the various terminators and the system are 
detailed below ; 

a. Academic Associate 

The Academic Associate is responsible for : 

• representing the interests of the sponsoring activities for the curriculum. 

• providing the required courses for successful completion of the curriculum. 

• determining the requirements for the four emphasis areas and providing a list of 
required and optional electives that will fulfill them. 

The course requirements data provided by the Academic Associate are 
entered into a database and accessed by the system to support end user requirements. 
Modification of either the curriculum requirements or the Emphasis Area requirements 
will be conducted by the Curricular Officer at the direction of Academic Associate. 
Academic Associate receives the final report from the system and validates the request 
prior to its entry into the curriculum database. 

b. The Registrar 

The Registrar provides the Tentative Course Offering updated per 
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quarterly for Naval Postgraduate School from which the subset Emphasis Area Course 
Offering Object is extracted. The Emphasis Area Course Offering will be created and 
entered into database by Curricular Officer. The Registrar receives final report as soon 
as it has been entered into the curriculum database. 

c. The Curricular Officer 

The Curricular Officer will update Emphasis Area Course Offering Object 
as Registrar modifies the annual course offering listing for Naval Postgraduate School. 
Additionally, he modifies the Emphasis Area Object and the schedule as directed by the 
Academic Associate. The Curricular Officer receives the final report and has it entered 
into the curriculum database. 

d. The Student 

The student is primary interactive user of the system. The student enters 
initial data for the final report (Student name, rank and section), and the interacts with the 
system to complete the final report. The Student selects an emphasis area and proceeds 
to select the quarter he is interested in. The system will generate a listing of the Computer 
Science core courses that the student will be required to take during that quarter. The 
system also presents a listing of all elective that are contained in the specified emphasis 
area that are offered during the quarter that is being viewed. 

The student has the option to view additional information about ; 

• the elective he is interested in, or 

• he may enter the elective into a tentative final report format, or 

• he may select a different quarter/ emphasis area for viewing. 
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Figure 3.3 The Hierarchycal Menu Module 



Once the student has created a tentative final report he has the option of 
re-entering the system to modify the report or printing the final report. Whenever the final 
report is created, the student signs the report and forwards it via the Academic Associate 
to the Curricular Officer and it is eventually entered into Curriculum database. 

3. Internal Processes 

The internal processes for the system include initial data entry and updating 
mechanisms for the database in the system. In the previous section we see that EAIS has 
five data object. Every data object is stored as text file namely Emphasis.txt, Quarter.txt, 
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Figure 3.4 The Main Menu 

Elective.txt, Course.txt and Student.txt. Because KnowledgePro only supports text file. To 
perform updating and querying a database, we implemented the list structure supported 
by KnowledgePro. These mechanisms can be done by first reading the data into lists. We 
then manipulate the data using list operations to get the desired result. 

In our system, we use the action/object strategy in structuring hierarchy (see 
figure-3.3). With the action/object strategy, the highest level menu (main menu) begins 
with a list of action menus. When the user selects on an action, lower level menus will 
pick up an object on which to perform the action. Menu selections are attractive because 
they can eliminate training and memorization of complex command sequence. Wc wrote 
the menu items using familiar terminology, so it helps the user select an hrin easily. 
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Menus serve the purpose of showing the options the user can choose. 



The main menu (figure 3.4) consists of the Exit and Help pull-down menu 
options, the Query Database option and the Database Management option. The Exit 
option ends the main menu session. We use three different methods to end the session. 
Go to the previous session, first we select the Exit option and we then select the 
Previous_Menu option. To exit the system, first we select the Close option from the 
control menu. Secondly, by selecting the Quit _the_sy stem option from the Exit pull-down 
menu option. This means that the system provides a way to accommodate user of multiple 
skill levels. The Help option provides information to the user about the main menu 
choices. During human-computer interaction, the Help option can minimize error 
possibilities. When the user selects the Query Database option, the Query Database 
module promptly appears on the screen. This module is used for querying the database 
and generating the reports (see figure 3.5). Likewise, the Database Management module 
will appear on the screen as soon as the user selects the Management Database option 
(figure 3.14). 

4. The Query Database Module 

The Query Database module consists of button options. There are the 
Emphasis _Areas, the Elective Offered, the Course Elective, the Option Area and Course 
Selection and the Generate Courses selection options. 
a. Query Emphasis Areas 

This module is for querying the Emphasis area. To accomplish this job, 
we first select the Emphasis Area pull-down menu option. We then select one of the track 
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Figure 3S The Query Module 

options. For instance, when we select the Military _Data_Processing option, the system 
will display a window frame shown in figure 3.6. 

b. Query Elective Courses 

The Query Elective module will produce the list of elective courses 
associated with given the emphasis area (see figure 3.7). Whenever the user want to know 
more information about specific course, then he or she can select the desired course from 
the lists. The system will give a course information shown in figure 3.8. 

c. Query Elective Offered 

The Elective Offered module gives a list of the elective courses offered 
in given specific quarter. For example, when we select the Summer option from the 
Quarter _Name pull-down menu and the 91 from the Year pull-down menu, the system 
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Figure 3.6 The Query Emphasis Area 
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Figure 3.7 The Query Elective Course (frame 1) 



will produce the course offering in summer 91 (see figure 3.9). 
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Figure 3.8 The Query Elective Course (frame 2) 
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Figure 3.9 The Quarter Offering 
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d. Option Area and Course Selection 



This mcxlule gives the final prcxluct of the system is report entitled 



"COMPUTER SCIENCE(368) EMPHASIS AREA DECLARATION AND COURSE 
SELECTION". It is the recommended courses suggested by the system. This report 
consists information about student’s name and rank, class section, the emphasis area 
selected, the emphasis area electives requested and alternate elective requested for the 
final five quarters of the curriculum. The report is submitted by the student and is 
forwarded the Academic Associate and Curricular Officer and is entered in the Curricular 
Database to generate Schedule requests from Registrar’s Office (see figure 3.10 and figure 



3.11). 
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Figure 3.10 The Elective Course Selection (frame 1) 



33 






ELECTIVE COURSE SELECTION 


Exit Help 


Print 
















COMPUTER SCIENCE (360) 

OPTION AREA DECLARATION AND COURSE SELECTION 








EMPHASIS AREA : 
STUDENTHD : 
NAME : 
RANK : 
SECTION : 


Software Engineering 

123-456789 

Chuck Peabody 

Captain 

Cs03 






QUARTER 


COURSE COURSE 


COURSE 


COURSE 


COURSE 


COURSE i 


4 /Win 91 
i 5/Spr91 
6 /Sum 91 
7 / Fall 91 
8 /Win 92 


CS3502 

CS355Q 

CS3B50 

C846Q1 

CS3920 


CS45QD 

CS4450 


cs^in 

C84112 

CS491Q 

C84530 

CS0810 


C849Q0 

CS42Q3 

caoeio 

C8Q81Q 

CSQ610 


C&3BP1 








N • 
















w •• 






1 





SnapApp Program ManagiKnowledgePro 

Figure 3.11 The Elective Course Selection (frame 2) 
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Figure 3.12 The Course Selection (frame 1) 
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Figure 3.13 The Course Selection (frame 2) 



user selects. In figure 3.11 the course number cs4520 will not be offered in Fall 91. The 
report also says that the student first should take the prerequisite course for cs4322. The 
Generate Elective Course selection module provides a modification mechanisms to change 
the undesired courses. There are several steps to update the undesired course selection 
shown in figure 3.11. First we select the Fall option from the Quarter _Name pull-down 
menu. We then select the student name from the student identification list. Finally we 
select the 91 option from the Year pull-down menu. The system will produce a window 
frame shown in figure 3.12. Instead of choosing cs4520, we replace it with cs3320. If we 
commit by clicking on the Ok button, the result will appear on the screen (see figure 
3.13). 
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DATABASE MANAGEMENT MENU 
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Figure 3.14 The Management Database Module 



5. Database Management Module 

As we stated before that the main menu consists of the Query Database and 
the Management Database. The Query Database has already been discussed, and now let 
we discuss the Management Database. There are five button options: Course, Emphasis, 
Elective, Quarter and Student options (see figure 3.14). By pointing and clicking the 
mouse to one of the buttons such as Course, the system will directly manipulate the 
Course Object as a result a sub menu for the Course Object will be displayed on the 
screen. Each sub menu of Management Database consists of three button options. These 
options are for adding new data, deleting data and updating the data associated with the 
file that stated in the button selection. By having the similar options in every sub menu 
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Figure 3.15 The Course Menu 

and in the same order, this helps the user and reduces errors and training time. 

In this section, for simplicity, we only discuss one example of Management 
Database, which is the Course Object. When we select the Course button of the 
Management Database menu, then it will display the sub menu of Management Course 
Data Object on the screen (see figure 3.15). This menu provides three button options : 
Update the Course, Delete the Course and Add the Course. These options are for updating 
mechanisms. The Exit option is for ending this session and the Help options is for getting 
information about the Course Object module. Now let us select Update the Course option 
to change the current record in the Database. 

The window frame shown in figure 3.16, is the result given after clicking the 
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Figure 3.16 Updating The Course (frame 1) 
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Figure 3.17 Updating The Course (frame 2) 



Update the Course option. Now, the user can select the course to be updated from the 
list-box with the list of courses. Using a single click on the course followed by clicking 
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Figure 3.18 Updating The Course (frame 3) 



on the Ok button or using the double clicking the user can update directly. The system 
immediately gives a response by displaying detailed information of the record selected. 
Figure 3.17 depicts overlap windows, where the user can edit and modify the data from 
current windows. This menu provides Update button and Cancel button which allows to 
the user to process or cancel the operation. After the user finish updating the selected 
course, a message window will be displayed. This message window gives the user options 
to continue updating Course files or not (see figure 3.18). Deletion and addition can be 
done in the same manner. 
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6. Coding the Programs 

As we stated earlier, that a program created by the user in the KnowledgePro 
environment is called Knowledge base. Through the Knowledge base, the system 
communicate to the user and, can also provide a way for the user to respond. In other 
words, all functions of the EAIS are controlled by the Knowledge bases interactively. 

There are a total of eleven Knowledge bases in the system. Each controls the 
execution of one or more modules. Table 3.1 depicts the Knowledge bases and 
functionalities used in the system. 



Table 3.1 THE EAIS KNOWLEDGE BASES 



Knowledge base 


Purpose 


MAIN.KB 


- Display the Main Menu. 1 

- Display the Query Database menu. 

- Display the Management Database menu. 






' EMPHASIS.KB 


- Display the menus for managing the Emphasis object. 

- Control the Add, Update, Delete, Help, Exit options. 

- Handle for managing EMPHASIS record. 
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ELECTIVE.KB 


- Display the menus for managing the Elective object. 

- Control the Add, Update, Delete, Help, Exit options. 

- Control and manage the ELECTIVE record. 


COURSE.KB 


- Display the menus for managing the Course object. 

- Control the Add, Update, Delete, Exit options. 

- Control and manage the COURSE record. 


QUARTER.KB 


- Display the menus for managing the Quarter object. 

- Control the Add, Update, Help, Exit options. 

- Control and manage the QUARTER record. 


STUDENT.KB 


- Display the menus for managing the Student object 

- Control the Add, Update, Delete, Help, Exit options. 

- Control and manage the STUDENT record. 


QUEMPHAS.KB 


- Display the menu for querying the Emphasis Area. 

- Control the Emphasis, Help, Print, Exit options. 

- Print the emphasis area report. 
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QUELECKB 


- Display the menu for querying the Elective course for 
selected the Emphasis Area. 

- Control the Emphasis, Help, Print, Exit options. 

- Print the track elective courses report. 


OPTADEC.KB 


- Display the menu for querying selected courses from 
fourth through eight quarter. 

- System will view fourth through eighth quarter courses 
by given student’s name selected from list box menu. 


OFFERED.KB 


- Display the menu for querying the Elective course for 
given Quarter. 

- Control the Quarter, Help, Print, Exit oprions. 

- Print the quarter elective courses report. 


GENSELEC.KB 


- Display the menu for selecting courses. 

- Given the quarter year, student’s name, the system will 
view the list of courses should be selected. 

- Generate and print the course selections. 



Through our experience of implementing a EAIS application using a software 
development tool KnowledgePro(Windows), we found some advantages as well as 
disadvantages. In the next chapter we will try to evaluate the development process of the 
EAIS using KnowledgePro. 
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IV. EVALUATION 



In the previous three chapters, we have described some motivation and background 
of the thesis, and implementation of the EAIS. Now we will evaluate the application 
development process of the EAIS using toolkit KnowledgePro(Windows). We organize 
this chapter into three sections. Section A will discuss the category of KnowledgePro 
(Windows). Based on our experience, section B will discuss the advantages and 
disadvantages of using KnowledgePro. The last section will look at the comparison 
between KnowledgePro and Toolbook. 

A. THE VISUAL INTERFACE CATEGORY OF KNOWLEDGEPRO 

As we mentioned earlier, we know that visual programming growing in two major 
directions. In one direction, pointing devices and graphical techniques are used to obtain 
the visual environments for program development and execution; for software design; and 
for information retrieval. They all provide a visual environment which captures a new 
way for humans to interact with the computer. In the another direction, languages are 
designed to handle visual information; to support visual interaction; and to program with 
visual expression. Programming languages that fall into this category support a way in 
terms of an approach to the language aspects of the programming process. Table 4.1 
shows the trends of the current visual programming. 

We have briefly examined these different aspects of visual programming. The 
purpose of the classification is to sharpen our understanding of visual programming by 
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focusing on the functional distinctions; and to have the distinctions among the different 
categories of visual programming. To classify whether KnowledgePro is visual 
programming or not, is the consideration of graphical representations must be used in the 
programming process. Now let we discuss the aspects of KnowledgePro that can be 
applied by visual programming. 



Table 4.1 VISUAL PROGRAMMING 



VISUAL ENVIRONMENT 


VISUAL LANGUAGES 


visual! 
zation 
of data 


visual! 
zation 
of pro- 
gram / 
exe- 
cution 


visual! 
zation 
of soft, 
design 


visual 

coa- 

ching 


for 

handling 

visual 

informa- 

tion 


for sup 
porting 
visual 
interac- 
tion 


Visual Programming 
Languages 




Diagra- 

matic 

systems 


Iconic 

systems 


Form 

system 



Some capabilities supponed by KnowledgePro include linking screen objects to 
topics, displaying a picture, handling events, getting information from the user, and 
temporarily halting topic execution. 

1. Linking screen objects to topics 

In the Main Menu (figure 3.4), the two options on the screen are located on 
buttons. There are the Query Database and the Management Database bunons. A button 
is used to triggered an action. When a button is selected something happens immediately. 
These are both examples of screen objects. The highlight is moved among screen objects 
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by pressing TAB or SHIFT TAB or by clicking on an object with the mouse. 

The command that creates the button shows how an event topic is assigned 
to screen object. 

button (QUERY DATABASE, QueryDatabase, 18, 10, 30). 

The first parameter defines the name on the button, the second defines the event topic and 
the final parameters set the column, row and length where the button is displayed. So 
when an event topic is called it is passed these piece of information : information about 
the event; the name of the event; and the handle of the current screen object. Something 
called a select_event occurs as the default event for s button. When the select_event 
occurs, the button’s event topic, QueryDatabase, is immediately called. 

2. Displaying a picture 

There two different types of graphics supponed by KnowledgePro. Each of 
these is used for a different function. The first type is Icons. Icons are images associated 
with windows. The second one is bitmaps. Bitmaps are used for displaying pictures. 

Bitmaps can be created using Zsoft’s PC Paintbrush for Windows. To load a 
bitmap, we use load_bitmap command. The following is an example command to load 
a bitmap that returns a bitmap photo : 

photo is load_bitmap (’PICTURE.BMP’). 

We then may display, print and delete using the commands : 
bitmap (?photo). 
print (’#g’,?photo). 
deiete_bitmap (?photo). 
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In the same way, the icons can be created using software called ICOEDIT. 
For instance, to load the icon LOGO.ICO, display it at column 4 row 5 of the current 
window and delete an icon, we use the following commands; 
logo is load_icon (’LOGO.ICO’). 
icon (?logo, 4, 5). 
delete icon (?logo). 

3. Handling events 

We have mentioned in chapter II, that KnowledgePro is an event driven 
language. When we view a program as a communicarion between the system and the user, 
this means that via the system the designer talks to the user and then waits for the user 
to talk back. When the user talks back, an event occurs. When we create a screen object, 
we specify whether we want it to handle events and which events we want it to recognize. 
This is done by specifying an event handling topic. Event handling topic is called 
whenever one of the specified events occurs while the focus is on the particular object. 

To make it clearer, let’s look at the following example, 
wl is window(WindowTopic,203>50,10,title„„(move_event,close_event]). 
topic WindowTopic (info, event, handle). 

do (?event). 

topic move_event. 

column is first (?info). 
row is last (?info). 

end. 
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topic cIose_event. 



WindowTopic is true, 

end. 

end. 

When window wl was created we specified that move_event and close _event 
should be recognized. When one of these events occurs, then WindowTopic, the event 
topic defined in the window command is called. When the user moves wl a move_event 
occurs. 

4. Getting information from the user 

During visual user interface development, it is important that the selection of 
screen objects are the one best suited for the information being gathered. KnowledgePro 
provides edit objects that let the designer gather information such as name, class, rank 
quickly and easily. 

The commands or functions to create edit objects include: 

• editjine is used for entering a single line of data 

• editjbox is used for entering multiple lines in a dialog window 

• edit_window opens independent editing window 

• edit Jile opens independent window with a File, Edit and Search menu 

The user can select one or more items from a list of options using 

• list boxes, check boxes or radio buttons that let the user selects one or more items 

• hyper-regions used for selecting values using pictures 

KnowledgePro provides many types of screen objects. It makes the designer 
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selects among them to make the best use of system environment. Additionally, each 
screen object has the same behavior make it very obvious to the user what has been 
selected and they provide visually attractive way to make options apparent. 

5. Temporarily halting topic execution 

There are times when we need to temporarily halt the execution of the 
commands. This can be done with wait command. Generally, the use of wait is to halt the 
system to wait for the user input as the following example: 
window ( ). 

text (’Welcome to the #mNavaI Postgraduate School#m’). 
wait ( continue, 5 ). 

A window is opened and a welcoming message is displayed, wait then stops 
executing the system until five seconds have expired or until the user select the continue 
button in the wait window, whichever come first. When the user select the hypertext, 
topic Naval Postgraduate School is called. 

KnowledgePro may be classified as a language that can be used to create, define, 
and manipulate graphical representation. The objectives of developing KnowledgePro are 
motivated by the need to have easy-to-use languages for the manipulation and querying 
of graphical data. KnowledgePro provides a way to deal with all possible sequences by 
the user with the input devices. This means that KnowledgePro is a user interface 
development tool that exploits the concurrency among multiple interaction devices such 
as mice, buttons, list boxes, radio buttons, and keyboards. KnowledgePro provides the 
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capability to create every kind of control available in the windows environment, it makes 
for graceful interaction between the user and the computer. 

Based on the capabilities of KnowledgePro, we believe that KnowledgePro focus 
is on language aspects for a good visual user interface. As mentioned before, visual 
languages can be classified into language for handling visual information, language for 
supporting visual interaction, or language for programming with visual expression. 
KnowledgePro falls into the second category. Languages for Supporting Visual 
Interaction. 

B. THE ADVANTAGES AND DISADVANTAGES OF USING 
KNOWLEDGEPRO 

The goal of this thesis is to study the effectiveness of a visual interface. To 
accomplish the goal we have implemented the EAIS using toolkit KnowledgePro. 
Through our experience we have found some advantages and disadvantages of using 
KnowledgePro. 

1. Advantages 

As we mentioned before that the decreasing cost of computing, coupled with 
the widespread use of personal computers, has acted as a catalyst for more application. 
By necessity, end user-computing is becoming a major trend. 

KnowledgePro offers characteristics to enhance the end-user computing, reach 
a broader personnel base of programmer; and increase their productivity. Some of these 
characteristics are: ease of learning; ease of use; and modularity. 
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a. Ease of Learning 



KnowledgePro comes with a single, large manual that includes tutorial, 
reference, and appendix sections. It uses a multiple document interface and also provides 
a large application hypertex-based on line help that let users work on more than one 
application at a time. If command’s errors are found, we can directly call on line help 
without quitting from current application. KnowledgePro also includes the complete files 
for KnowledgePro tools, such as FONT.CKB and DESIGN.CKB which serve as excellent 
references for experience programmers. From our experience of using KnowledgePro in 
the EAIS implementation, we easily learn and implement it. Reducing learning time can 
increase productivity and number of people who can program. 

b. Ease of Use 

Traditionally, computer programming languages that were developed in 
the 1960s, 1970s and early 1980s, such as FORTRAN, COBOL, ALGOL, PASCAL, 
ADA, or C were designed for use in the non-interactive computer environment. 
Programmers would compose hundreds or thousands of lines of code, carefully check 
them over, and then compile or interpret the code by the computer to produce a desired 
result. Creating a visual interface in these traditional approaches requires unacceptable 
amount of time to design, code, test and maintain the software. 

KnowledgePro is a mainstream object-oriented Windows development 
system that offers additional hypertext and expert system tool feature to enhance the 
visual user interface. KnowledgePro works as integrated development under Windows. 
The KnowledgePro main window includes commands for maintaining, compiling and 
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running files; searching and replacing text in edit window; running the application; 
clearing the current application; debugging the application in memory; and a switch for 
setting a slew of KnowledgePro environment options. The main window also offers an 
on-line context-sensitive hypertext help function. 

The KnowLedgePro language is surprisingly compact for such a powerful 
system. It contains few syntax rules, so we can be verbose in our coding, without 
destroying the meaning of the topic or encountering an error. For manipulating data, 
KnowledgePro provides string and financial operations as well as facilities for performing 
set operations against lists. KnowledgePro includes the source code for the help system 
application. Creating and manipulation push buttons; radio buttons; check, list and edit 
boxes; and hypertext region is easy. It also provides several tools and their source code, 
to make it easier for users to design and build an application. FONT.CKB and 
DESIGN.CKB are the most important function as interactive code generation tools to 
emphasize speed on implementation. 

The debugger includes several tools, including a window for displaying 
application topics. We can use it to browse a topic’s values, commands and properties, 
much like an object browser in Smalltalk. It also provides a command to evaluate the text 
of the selected edit window; a command to compile and execute the code immediately 
and a command to trace each step as the application is executed. The Calls window 
displays a list of topics that our application has called but not yet executed. 

KnowledgePro offers solid and useable development tools that run very 
quickly and cleanly. This is one Windows development environment tool that offers the 
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ease of use, the ease of learning and extensibility for both power users and developers. 



c. Modularity 

The principles of software engineering recommend writing code in small, 
self-contained units, called modules. Modularization is the process of dividing a task into 
subtasks. Each module performs a separate, independent part of task. Modularity offers 
advantages for program development, as well as software maintenance. 

A knowledge base is a collection of topics. Topic strongly supports 
modularity. When KnowledgePro is loaded, only one topic, named Imain, exists. If we 
compile a knowledge base, the commands in the knowledge base become associated with 
.'main-, topics defined in the knowledge base become subtopics of .'main. Topics can also 
be subtopics of other topics. This is called nesting. There are several advantages to 
writing a program as a series of topics. 

• Understandability. The topic structure groups together related functions and hides 
the details of their implementation. This makes debugging easier and the knowledge 
base more understandable. 

• Maintainability. If a function is implemented as a single topic, the topic can be 
replaced with a revised one, if necessary. The new topic may be needed due to a 
change in requirement or the environment. 

• Reusability. Topics developed for one purpose can often be reused in other 
programs. Reuse of correct, existing topics can significantly reduce the difficulty 
of programming and testing. 
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2. Disadvantages 



a. Speed 

KnowledgePro offers the ease of use by providing many kinds of different 
screen objects such as push buttons, radio buttons, check boxes, edit boxes, list boxes, 
edit line and hypertext regions. The designer can build user interfaces easily. However, 
creating and manipulating the screen objects, make the system runs slowly. From our 
experience, the primary difficulty of implementing the EAIS using KnowledgePro is 
achieving quick navigation through the system. This lack of speed is due to the large 
overhead involved in processing screen objects by the Central Processing Unit. 

The solution of this problem is to invest in hardware that speeds up 
graphics processing or provide the system with other toolkits such as KnowledgePro Math 
Toolkit, or KnowledgePro Graphics Toolkits. 

b. Error Handling and Compiling 

When we compile a knowledge base with many errors, KnowledgePro 

will display an error at a time on window screen. The system wait for the respon.se of the 

user to continue the operation or cancel. By displaying one error at a time on the .screen, 

the system needs more time and is not attractive to the novice programmers and end- 

users. Lets us consider the following knowledge base : 

topic first. 

list is [A, B, Cl. 
iteml is first ( ?list ). 

end. 



53 



When we compile it, we do not have any errors. But when we run this program, the result 
is an infinite loop because it has the same name as a function which is used in a 
command for the topic. Instead of calling the function first, the knowledge base topic first 
is recursively called forever. 

c. Design Tools lacking 

Despite the powerful language and functions, we found KnowledgePro’s 
application design tools lacking. The tools include a simple font generator and an 
interface design tool. The interface design lets us the user create, position, and resize 
Windows objects in a window, generate the KnowledgePro code to create and manipulate 
them, and copy the code via the clipboard, to the user application. The font generator lets 
the user configure custom fonts from the available windows fonts. 

The tools are rather limited and operate in nonstandard way. For example, 
most Graphical User Interface design tools lets the user use the mouse to put the object 
into position in the interface. With the KnowledgePro’s interface design tool, when we 
click where we want the object to be, then the object jumps to where we clicked. Further, 
we have to use keyboard to resize an object because the mouse does not support resizing. 



C. COMPARATIVE STUDY BETWEEN TOOLBOOK AND KNOWLEDGEPRO 
As we stated before, that Toolbook and KnowledgePro are software development 
tools for Windows 3.0. The implementation of a sample application using KnowledgePro 
has already been discussed along with it’s advantages and disadvantages. In this section. 
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we try to compare both tools to have a better understanding for software development 
tools. 

1. ToolBook 

Toolbook greets the user with its Book-shelf front end. A "book of books" 
showing icons for the available Toolbook applications. The user is off to a quick start 
with the following applications: the DayBook information manager; the ToolBook/DBASE 
Exchange; a graphics front end to DBASE files; and the Quick Tour. Both the ToolBook 
Quick Tour and the on-line help give the user easy access to any part of the system. This 
means that ToolBook offers access to the graphic power and intertasking linkage of the 
Windows environment. Support for basic Windows features of ToolBook and the ease of 
learning to use development tools are better in Toolbook than in KnowledgePro. 
ToolBook is an active environment, sending a constant stream of messages to its objects. 
This allows the designer to easily alert the user to problem areas on screen. A feature of 
growing importance in fully graphic applications designer alerts. ToolBook’s limit on 
"nested handlers" forces a recursive benchmark to be written in an interactive style. In 
contrast, KnowledgePro accepted recursive benchmarks without rewriting them. 

2. KnowledgePro 

KnowledgePro works with "knowledge bases" in contrast with ToolBook’s 
pages of books. KnowledgePro supports hypertext feature that can be clicked upon by a 
mouse to produce some programmed action. By making on screen text an active 
component of the interface, designers can build a single software object that serves as 
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both code and data. The result is extraordinary development productivity. Like ToolBook, 
KnowledgePro is an active environment in which objects receive a stream of messages 
as the user takes various actions. KnowledgePro is also similar to ToolBook in the way 
that individual objects are given handlers for those events that the programmer considers 
relevant to each object. 

KnowledgePro is more responsive than ToolBook, with interactive touches such as 
editor windows that scroll interactively as the user drags the elevator box at the right side 
of the window. KnowledgePro offers full topic subclassing with multiple inheritance, a 
feature that distinguishes it from ToolBook. It’s support for Windows objects is much 
richer than ToolBook’s. KnowledgePro enables developers to produce Windows programs 
that offer broader functionality than those created in ToolBook. 



56 



V. CONCLUSIONS 



Traditionally, the design and implementation of conventional database systems 
involve text oriented data access with their inherent lack of modularity, extensibility and 
modifiability. An alternative to this traditional approach is using visual interfaces for the 
design and implementation of databases. This alternative approach involves using software 
development tools (toolkits) to ensure modularity, extensibility and modifiability. To study 
the effectiveness of using visual interfaces, we have designed and implemented a sample 
application named The Emphasis Area Information System (EAIS) using KnowledgePro, 
a tool for rapid application under Windows. 

An interactive user interface was implemented for the EAIS using KnowledgePro. 
An evaluation of our implementation indicates that designing an interactive user interface 
using visual interfaces is easier than designing a user interface using the traditional 
approach. KnowledgePro falls into the language for supporting visual interaction. 
KnowledgePro supports interactive design tools and easy-to-leam commands which 
extremely facilitates using and learning the system. Underlying this easy-to-leam 
environment is a powerful symbolic language called the topic. Topics are very highly 
support modularity, extensibility and modifiability which increase on speedy the system 
development. 

The primary difficulty of the implementation of the EAIS using KnowledgePro is 
achieving quick navigation through the system. This lack of speed is due to the large 
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overhead involved in processing screen objects by the Central Processing Unit. The 
solution of this problem is to invest in hardware that expedites graphics processing or 
provide the system with other toolkits such as KnowledgePro Math Toolkit, or 
KnowledgePro Graphics Toolkits. 

There are still some issues that need to be considered for future research. Some of 
these issues are the utilizing new features to Windows including; 

• The expert system tool features to enhance the friendly user interface. The expert 
system capabilities enable the application designer to built in expert system rules 
that allow to be tailored to a user’s level of expertise. 

• Dynamic Data Exchange (DDE) as a method for applications that run under the 
Microsoft Windows to communicate directly with one another. 

• Dynamic Link Library (DLL) is a separate file containing functions which can be 
called by the programs to perform specific jobs. 



Using these features would increase efficiency in designing and implementing visual 
interface to database systems while decreasing the time. 
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APPENDIX A. SOURCE CODE LISTING 



(* Program : main.kb 
Programmer : suprapto 

♦) 

if exists(temp) 

then remove_topic(temp) and collectO and workonQ 
else preparationQ. 

topic preparation. 
logoO. 
setupO. 

Main_menu 0* 
end. 

topic logo. 

wh is window(,l5A66,19„[Dialogwindow,visible]). 
text (’#n#fblue 



COMPUTER SCIENCE 

NAVAL POSTGRADUATE SCHOOL 

MONTEREY CALIFORNIA 93943#d’). 
b2 is button(OK, ,28,16,10). 
set_focus(?b2). 

wait( ,1). 
close_windowO. 
end. 

(♦ <<<<<<<<<<<<<<<<<<<<<<< MENU ITEMS »»»»»»»>»»»»>»» ♦) 
topic main_menu. 

disable_menu_item (?m 1 ,[previous_menu]). 
list is []. 

list gets *&Help\ 
set_title (,’MAIN MENU’)- 
text (’#e #fblue 

#fred 



NAVAL POSTGRADUATE SCHOOL 
EMPHASIS AREA DEQSION SUPPORT SYSTEM#fblue 



set_display_pos(9, 1 6) . 
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-#d 



icxt(*^ttl)luc — — 

Point and click your mouse to select job on the items above: 



button(’QUERY DATA BASE*. ’query database’, 18, 10,30). 
button(’DATABASE MANAGEMENT’, ’database management’, 18, 13,30). 
end. 

topic workon. 

data is read(’tempo.dat’). setup(). 
if nrst(?data) is 1 

then do(’query database*) 
else do(’database management’), 
end. 

topic select (item), 
do (?item). 



topic ’(Juit_to_system*. 
text(#e). 
logoQ. 
clear(). 

end. (* &(3uit *) 
topic &Qu\i, 
text(#e). 
logoQ. 
clear(). 

end. (* &Q\i\i *) 

topic &Help. 

items is last(?list). 
d isplay_Info(? items) . 

end. (*&help*) 

end. (♦SELECT*) 



(* <<<<<<<<<<<<<<<<<<<<<<<<<<<<<< »>»»»»»»»»»»»»>»»»> *) 



topic ’QUERY DATABASE’, 
list gets ’QUERY DATABASE’. 
set.tiUe (?wl,’QUERY DATABASE MENU’). 
enable_menu_item (?m 1 ,[Previous_menu]) . 
text (’#e #ffed 



QUERY DATABASE #FRED 



*). 



set_display_pos(9, 1 9). 

Select your choice by pointing & clicking the mouse on the items 



-#fblue 
- #D’). 
— ^D 
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button(’EMPHASIS AREAS\emphas, 15,5,38). 
bution(’ ELECTIVE OFFERED ’,offered, 15,8,38). 
button(’COURSE ELECTIVE\elective, 15,1 1,38). 
button(’GENERATE COURSE SELECTION’, ’generateM 5, 14,38). 
bution(*OPTION AREA AND COURSE SELECTION’,optadec, 15, 17,38). 
end. (*QUERY DATABASE ♦) 

topic emphas. mark(’ emphasis areas’), end. 

topic offered. mark(’elective offered*), end. 

topic elective. mark(’course elective’), end. 

topic generate. mark( ’generate course selection’), end. 

topic optadec. mark( ’option area’), end. 

topic ’DATABASE MANAGEMENT’, 
list gets ’DATABASE MANAGEMENT’. 
set.tiUe (?wl, ’DATABASE MANAGEMENT MENU’). 
enable_menu_item (?ml ,[Previous_menu]). 
text (’#e #fred 

-#fblue 

DATABASE MANAGEMENT #fred 

#d). 

set_display_pos( 1 2, 1 9) . 

text(’#fred -#D 

Select your choice by pointing & clicking the mouse on the items ’). 
button(’E M P H A S I S’,’dm_emphasis’,24,5,20). 
button(’E L E C T I V E’,’dm_elective ’,24,8,20). 
button(’C OURS E’,’dm_course’,24,ll,20). 
button(’Q U A R T E R’,’dm_quarter’ ,24, 14,20). 
button(’S T U D E N T’,’dm_student’,24, 17,20). 
end. (*QUERY DATABASE *) 

topic dm_emphasis. mark(’e m p h a s i s’), end. 
topic dm_elective. mark(’e 1 e c t i v e’). end. 
topic dm_course. mark(’c ours e’). end. 
topic dm_quarter. mark(’q u a r t e r’). end. 
topic dm_student. mark(’s t u d e n t’). end. 

(♦ ============== MARK TOPIC ============== ♦) 

topic mark (item). 
text(’ tes2’). text(?ilem). 
if one_of(?list_menu, ?item) 
then applicationO 
else DO (7ITEM). 

topic application. 

hide_ windo w(? w 1 ) . 

load ( element ( ?list_prog, where ( ?list_menu, ?item)), temp). 

tempo. 

waitQ. 

end. 

END. (*end mark*) 
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topic Previous_menu. main_menuO. end. 



topic display_Info (items), 
wh is window(»15,5,66,19„[Dialogwindow,visible]). 
use_font(system_font). 
make_modal(? wh) . 

text (#e»read (*info.hyp\ concai (7/\?items) ///*) ). 
set_file_pos (*info.hyp\0, beginning). 
b2 is button(Ok,continue30»16). 
set_focus(?b2). 
wait(). 

close_window0. 

end. 




topic setup, 
displayinfo (). 
if version is 3 

then !main;wl is window (select:&Quit,13,l»83,22„[Popup.Visible»ThinFrame]) 

else !main:wl is window 

(select:&Quiul3.1.70.25»,[PopUp„ControlMenu,thickFrame»ShowChildren,Siblings]..„close_event). 
ml is menu ([[E&xiuPrevious_menu/Quit_to_system*],&Help]»select). 
disable_menu_item (?m 1 ,[Previous_menu]). 

list_menu is [’emphasis areas’/elective offered’/course elective’/generate course selection’/option area\ 

’e m p h a s i s\*e I e c t i v e\*c ours e\*q u a r t e r\*s i u d e n t’]. 

Iist_prog is [*quemphas.ckb\’offered.ckb’/elecqry.ck:b\’genselec.ckb\*optadec.ckb’/emphasis.ckb\ 
’elective.ckb’/course.ckb’/quarter.ckb’/student.ckb*]. 
show_window (?wl). 
list is [ ]. 



topic displayinfo. 
system is system_info (). 
if element (?system,4) is 12 
then displayType is EGA and 

smallFont is [10»5»4(X)»f/X0.1»34Jlelv) and 
bigFont is [16,9.400/4*X0,U8/Tms Rmn’] 
else displayType is VGA and 

smallFont is [16,7,400//X0,l,18Jielv] and 
bigFont is [20,8.700//X0»l,34Jfelv]. 

if last (?system) < 3 
then hypeiColor is black 
else hyperColor is blue and 
hyper_display (blue). 

hyperFont is create_font ([12.8.4(X)Xuf»0.1,2.Systeml). 
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version is string_copy (element (?system,9),M). 
end. 

end. (*setup*) 

(♦ END MAIN.KB ♦) 



( ♦ ♦) 

(♦ Title : emphasis.kb 
Author : suprapto 



♦) 

wmenu is window(select:&quit,5, 5, 82,2 l„[Popup„ControlMenu,ThickFrame,ShowCrhildren, Siblings]). 

ml is menu([[E&xit, *Previous_menu*, *Quit_to_system’],&Help].select). 

set_title(?wmenu,’emphasis OBJECT’), written is 0. 

set_title(?wmenu, ’EMPHASIS AREA OBJECT’), test is 0. 

read_file(). 

topic read_file. 

eof is number_to_char(26). 

No is 0. emphasisField is []. emphasisList is []. 

message is read_line(’track.ut’,4). 

repeat 

emphasisField gets ([?message]) and 

emphasisList gets(element(?message,2)) and No is ?No +1 and 
message is readjine(’track.txt’,4) 
until ?message is ?eof. close_all0. show_window(? wmenu). 

end. 

selectionO. 
topic selection. 

text(#e). enable_menuJtem(?ml,[E&xit]). 
text (’#n#fred 

MANAGEMENT EMPHASIS AREA#FBLUE 
^d). 

set_display_pos( 16, 15). 

text(’#fblue ’). 

button(’UPDATE THE EMPHASIS AREA ’,&update,24,6,32). 
button(’DELETE THE EMPHASIS AREA ’,&delete,24,9,32). 
button(’ADD THE EMPHASIS AREA ’,&add,24, 12,32). 
waitQ. 

end. 

(♦ 

topic E&xit. 
test is 0. 
selectionO . 

end. 
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topic select(item). 



do (?item). 
end. 

topic &update. 

set_title(?wmenu/UPDATE THE EMPHASIS AREA*). 
disable_menu_item(?ml,[E&xit]). option is *#FR£D updating*. 
displayboxQ. 

topic display box. 

text(#e). set_display_pos(5»l3). text(*#fblue emphasis area to be updated :*). 
set_display_pos(5,2). edl is []. 

text(*#fblue emphasis areas in the Database #fred (Select the emphasis to be updated)*). 

Lb is list_box((?emphasisList]»input_daia,5,4,40„,t,(list_select_evenudouble_click_event]). 
edl is editjine(„35. 13.30). 
button (OK.Ok.55.5.10). button(Cancel.can.55.9.10). 
end. 
end. 

topic input_data(item.info_name). 
edl is ?item. edfield is ?edl. 
edl is edit_line(?edl., 35, 13.30). 

if ?info_name is *double_click_event’ then edl is get_text(?edl) and 
editone is ?edl and check^daiaQ. 

end, 

topic Ok. 

if not(get_text(?edl) is (]) then edl is get_text(?edl) and 
editone is ?edl and check_data() 
else input_data(getJist_box(?Lb)). 



end. 

topic check_dataQ. 

if ?option is *#fred Updating’ then edit_emphasisO 
else ( if ?option is *#fred deleting * then delete_emphasisO 
else add^emphasisO). 

end. 

topic edit_emphasis. 

if one_of(?emphasisList. ?edl) 
then editO 
else 

message is concat(?edl, *#fblue was not in the emphasis file !*) and 
display_info{). 

end. 

topic deleie_emphasis. 

if one_of(?emphasisList, ?edl) 
then deleteO 
else 

message is concat(?edl.*#fred was not in the emphasis file !!*) and 
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end. 



display_infoO. 



topic display^info. 

disable_window(?wmenu). 
disable_window(?wh) . 

whl is wmdow(,20,10,51,12„[Dialogwindow,visible]). 
text(’#n #n ’). iext(?message). 

iexi(’#n #n #n Continue ’)• text(?option). iext(’ the emphasis file ?*)• 
button( Y es ,yes,43 ,5 ,6) . 
button(No,main_menu,43,8,6). 
end. 

topic yes. 

close_window(?wh). remove_topic(wh). enable_window(?wmenu). 
close_window(?whl). remove_topic(whl). edl is ?editone. 
if ?option is *#fred deleting ’ then ( if not(?message is ’ ’) then &deleteO 

else edl is edit_line(?edl„35, 13,10)) 
else ( if ?option is ’#fred adding’ then &add() 
else edl is editjine(?edl„35,13,10)). 

end. 

topic main_menu. 

close_window(?wh). remove_topic(wh). 
close_window(?whl). remove_topic(whl). 
enable_window(?wmenu). 
selectionQ. 

end. 

topic get_data. 

ed is element(?emphasisField, where(?emphasisList,?edl)). 
ed2 is element(?ed,l). ed3 is element(?ed, 3). 
ed4 is element(?ed, 4). 
end. 

topic edit. 

keyvalue is ?edl. 
get_data0. 

set_tiUe(?wmenu,’UPDATE THE EMPHASIS’). 

FormatDisplayO. 

button (Update,yesUpdate,20,14,10). 
button (cancel, notUpdate, 32,14,10). 

topic notUpdate. 

message is ’ ’. disable_window(?wh). display_info(). 

end. 

topic yesUpdate. 
edl is get_iext(?edl). 
ed2 is get_iext(?cd2). 
ed3 is get_iext(?ed3). 
ed4 is get_iext(?ed4). 
set_display_pos(20, 1 6). 
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disable_winciow(?wh). 
if one_of(?emphasisList, ?edl) 
then (if ?edl is ?keyvalue 
then updatedataO 

else message is concai(?edl/#ffed was in the emphasis file !#d’) 
and display_infoO) 

else message is concat(?edl,’#Fred was not in the emphasis file ! Please, add first’) and 
display_info(). 

end. 

end. 

topic updatedata. 

edrec is combine(?edl,?ed2,?ed3,?ed4). 
emphasisField is replace(?emphasisField, [?ed],[?edrec]). 
emphasisList is replace(?emphasisList,?edfieli?ed). 
written is 5. 

message is concat(?edl,’#fblue has already been updated !!#d’). 
disable_window(?wh). 

display_infoO. 

end. 

topic &delete. 

disable_menu Jtem(?m 1 ,[E&xit]). 

set_title(?wmenu, ’DELETE THE EMPHASIS AREA’). 

displayboxQ. 

topic display box. 

text(#e). set_display_pos(5,13). text(’#fblue emphasis area to be deleted :’). 
set_display_pos(5,2). edl is []. option is ’#fred deleting ’. 

text(’#fblue emphasis areas in the Database #fred (Select the emphasis to be deleted)’). 
Lb is list_box([?emphasisList],input_data,5,4,40,„t,[list_select_event,double_click_event]). 
edl is editjine(„35, 13,30). 
button (OK,OK,55,5,10). button(Cancel,can,55,9,10). 
end. 
end. 

topic delete. 
get.dataO- 

set_title(?wmenu,’DELETE THE EMPHASIS AREA’). 

FormatDi splay 0. 
set_display_pos(22,2). text(?ed2). 
set_display_pos(22,4). text(?edl). 
set_display_pos(22,6). text(?ed3). 
set_display_pos(22,8). text(?ed4). 

set_display_pos(2,14). text(’#fred Delete the emphasis area?’). 
button(YES,yesdelete,28,14,10). buuon(NO, notdelete,40,14,10). 
wait( ). 
end. 

topic yesdelete. 

emphasisField = remove(?emphasisField,[?ed]). 
emphasisList = remove(?emphasisList, get_text(?edl)). 
written is 5. 
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message is concat(get_texi(?edl)/#fblue deletion has been done’). 

disable_window(?wh). 

display_info(). 

end. 

topic notdelete. 

message is ’ disable_window(?wh). display_info(). 

end. 

topic can. 
test is 0. 
selectionQ. 
end. 

topic &add. 

disable_menuJtem(?ml,[E&xit]). texi(#e). option is ’#fred adding’, 
edl is []. ed2 is []. ed3 is []. ed4 is []. 
set_title(?wmenu»’ADD THE emphasis ’). 

FormatDisplayO. set_display_pos(55.1). 
text(’#fblue emphasis in Database ’). 
list_box(?emphasisLisu»55,2.20.„t). 
button (’Add data (OK)’.Ok_Add.l8.15,16). 
button (cancel. noLadd. 39,15,8). 
set_focus(?ed2). 

topic not_add. 

editone is get_text(?edl). disable_window(?wh). 
message is ’ ’. display_info(). 
end. 

topic Ok_Add. 

editone is get_text(?edl). disable_window(?wh). 
if one_of(?emphasisList, get_text(?edl)) 

then message is concat(?editone,’#fred was in the emphasis file !#d’) 
else if ?editone is [] or get_text(?ed2) is [] then 

message is ’#fred Enter emphasis Number & emphasis Name Please !’ 
else (edrec is combine(get_text(?ed2), get_text(?edl),get_text(?ed3), get_text(?ed4)) and 
emphasisField gels ([?edrec]) and 
emphasisList gets (get_text(?edl)) and 
written is 5 and 

message is concat(get_text(?edl),’#fblue has been added into a emphasis file’)). 
display_infoO. 



end. 

end. 

topic FormatDisplay. 

wh is window(,8,8,77,17„[Dialogwindow,visible]). 
text(#e). set_display_pos(l,2). disable_window(?wmenu). 
text(’#fblue Emphasis Number : 

Emphasis Name : 

Description : 
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:#d ’). 

if not(?option is ’#fred deleting *) then 
edl is editjine(?edl„22»4,30) and 
display_record(). 

end. 

topic di splay .record. 

ed2 is editjine(?ed2,.22.2.4). 
cd3 is editjine(?ed3„22,6,40). 
cd4 is editjine(?ed4„22,8,40). 

end. 

topic &Help. 

wh is window(,8.8.74,16„[Dialogwindow,visible]). 
text (#e.read (’infoiiyp\ concat (Vr .emphasis) ///’) ). 
set.file.pos (’infoiiyp\0.beginning). 
b2 is button(Ok.continue,30,14). 
set.focus(?b2). 
waitQ. 

close(’iiifoiiyp*). close.window(). 
end. 

topic update.file. 
new.file(’cmphasisl.ut*). 

write(*emphasisl.ut\?emphasisList). close(’emphasisl.Ut*). 
new.file(’track.ut*). 

write(*irack.ut\?emphasisrield). close(’track.ut*). 
end. 

topic *previous.menu\ 
if ?written is 5 then update.file(). 
new_file(*tempo.dat*). 
write(*tempo.dat\2). 
close.allQ. 

close. window(? wmen u) . 
do(!main). 
end. 

topic ’quit.to.system*. 
if ?written is 5 then update.file(). 
close.alK). 
clearQ. 
end. 

(♦ end EMPHASISXB ♦) 



Program : electiveJcb 
Author : Suprapto ♦) 

wmenu is window(select:&quiu5,5,82,20„(Popup„ControlMenu,ThickFrame,ShowChildren,Siblings]). 
ml is menu([[E&xit, *Previous.menu\ *Quit.to.system’],&Help],select). 
trackel is read(*trackelt.ut’). 

aitrack is string.to.list(element(string.to.list(element(?trackel, l),Vn. 1)). 
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aielect is string_toJist(elemem(strmg_io_lisi(elemeni(?trackel,l).7/’).2)). 
tstrack is string_io Jisi(element(string_io Jisi(elemem(?trackel,2),7/’), 1)). 
tseleci is string_ioJisi(elemeni(string_toJisi(elemeni(?irackel,2).7/’).2)). 
setrack is string_toJist(elemeru(string_to_lisi(elemem(?trackel,3),7/’), 1)). 
seelect is string_ioJisi(elemeni(string_toJisi(element(?trackel,3).7/7,2)). 
dbtrack is string_to Jisi(elemeni(string_loJisi(elemeni(?trackel,4)///*), 1)). 
dbeleci is string_ioJisi(elemeni(string_ioJist(element(?trackel,4),7/’),2)). 
course 1 is read(’coursel.ut’). close_all(). 
show_window(?wmenu). written is 0. 

selectionO. 

topic selection. 

text(#e). set_title(?wmenu/ ’). 
text (’#n#fred 

MANAGEMENT ELECTIVE DATA OBJECT#FBLUE 
-#d). 

set_di splay_pos( 16,15). 

text(’#fblue ’). 

button(’UPDATE THE ELECTIVE ’,&update,25,6,30). 
buttonC’DELETE THE ELECTIVE \&delete,25,9,30). 
button(’ADD THE ELECTIVE\&add,25, 12,30). 
waitQ. 

end. 

topic E&xit. 
test is 0. 
selectionO . 

end. 

topic select(item). 

do (?item). 
end. 



topic &update. 

set_tiUe(?wmenu,’UPDATE THE COURSE ELECTIVE’), 
opt is ’#fred updating’. 

edl is []. ed2 is []. option is 1. choice is 2. election is 3. 
FomiatDisplay(?option,’updated !!’). 
b is button (OK,OK,22,9,8). button (Cancel,can,32,9,8). 
set_focus(?b). 
topic ok. 
option is 1. 
ed2 is []. 
second.displayO. 

b is button (OK,OKE,22,8,8). button (Cancel,postpone,32,8,8). 

end. 

topic oke. 

ed2 is get_text(?ed2). 

do(concat(’No’ ,list_of_char(?ed 1 ))) . close. window(?wh 1 ) . remove_topic(wh 1 ) . 
old is ?ed3. 
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option is 2. choice is 5. second_display(). 
button (OK,continue,22,12,8). 
button (cancel,postpone,32,12,8). 

end. 

topic postpone. 

message is ’ display_info(). 

end. 

topic Nol. if one_of(?ai track, ?ed2) then ed3 is ’Required’ else ed3 is ’Optional’, end. 
topic No2. if one_of(?tstrack, ?ed2) then ed3 is ’Required’ else ed3 is ’Optional’, end. 
topic No3. if one_of(?setrack, ?ed2) then ed3 is ’Required’ else ed3 is ’Optional’, end. 
topic No4. if one_of(?dbirack, ?ed2) then ed3 is ’Required’ else ed3 is ’C^tional’. end. 

topic continue. 

ed3 is get_text(?ed3). ed2 is get_text(?ed2). 
do(concat(’update’» list_of_char(?edl))). written is 5. 
message is concat(?ed2,’#fblue has already been updated !’). display_infoO- 
end. 

topic update 1. 

if not (one_of(?ed3, ?old)) 
then ( if one_of(?ai track, ?ed2) 

then aiirack is remove(?aiirack, ?ed2) and aielect gets [?ed2] 
else aielect is remove(?aielect, ?ed2) and aitrack gets [?ed2]). 

end. 

topic update2. 

if not (one_of(?ed3, ?old)) 
then ( if one.of(?tstrack, ?ed2) 

then tsirack is remove(?tsirack, ?ed2) and tselect gets [?ed2] 
else tselect is remove(?tselect, ?ed2) and tsirack gets [?ed2]). 

end. 

topic update3. 

if not (one_of(?ed3, ?old)) 
then ( if one_of(?setrack, ?ed2) 

then setrack is remove(?setrack, ?ed2) and seelect gets [?ed2] 
else seelect is remove(?seelect, ?ed2) and setrack gets [?ed2]). 

end. 

topic update4. 

if not (one_of(?ed3, ?old)) 
then ( if one_of(?dbirack, ?ed2) 

then dbirack is remove(?dbtrack, ?ed2) and dbelect gets [?ed2] 
else dbelect is remove(?dbelect, ?ed2) and dbirack gets [?ed2]). 

end. 

end. 

topic &delete. 

set_title(?wmenu,’DELETING THE COURSE ELECTIVE ’). election is 2. 
edl is []. ed2 is []. option is 1. choice is 2. election is 2. opt is ’#fred deleting’. 
FormatDisplay(?option, ’deleted !!’). 
b is button (OK,OK,22,9,8). button (Cancel,can,3 2,9,8). 
set_focus(?b). 
topic ok. 
option is 1. 
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button (Cancel,postpone,32,8,8). 



ed2 is (]. 
second_displayO. 
b is button (OK,OKE,22,8,8). 
end. 

topic postpone. 

message is ’ display _info(). 

end. 

topic oke. 

ed2 is get_text(?ed2). 

do(concat(’No\list_of_char(?ed I ))). close_window(?wh 1 ). remove_topic(wh 1 ). 
option is 2. choice is 4. second_display(). 
button (’Delete (OK)*»continue, 22,12,13). 
button (Cancel, not_delete,36, 1 2,8) . 

end. 

topic Nol. if one_of(?aitrack, ?ed2) then ed3 is ’Required* 
topic No2. if one_of(?tstrack, ?ed2) then ed3 is ’Required’ 
topic No3. if one_of(?seirack, ?ed2) then ed3 is ’Required’ 
topic No4. if one_of(?dbtrack, ?ed2) then ed3 is ’Required’ 
topic not_delete. 

message is ’ ’. display_info(). 

end. 

topic continue. 

ed3 is get_text(?ed3). ed2 is get_text(?ed2). 
do(concat(’delete’,Hst_of_char(?edl))). written is 5. 

message is concat(?ed2,’#fblue has been deleted from Database’), display _infoO 
end. 

topic deleiel. if one_of(?aiirack,?ed2) then aiirack is remove(?aitrack,?ed2) 
else aielect is remove (?aielect,?ed2). end. 
topic delete2. if one_of(?tstrack,?ed2) then tstrack is remove(?tstrack,?ed2) 
else tselect is remove (?tselect,?ed2). end. 
topic delete3. if one_of(?setrack,?ed2) then seirack is remove(?setrack,?ed2) 
else seelect is remove (?seelect,?ed2). end. 
topic delete4. if one_of(?dbtrack,?ed2) then dbirack is remove(?dbtrack,?ed2) 
else dbelect is remove (?dbelect,?ed2). end. 

end. 



else ed3 is ’Optional’, end. 
else ed3 is ’Optional’, end. 
else ed3 is ’Optional’, end. 
else ed3 is ’Optional’, end. 



topic can. 

close_windowO. enable_window(?wmenu). 
selectionQ. 
end. 

topic display.info. 

disable_window(? wmenu) . 
disable.windo w(? wh) . disable_window(?wh 1 ). 

wh2 is window(,19,10,54,12„(Dialogwindow,visible]). 
text(’#n #n ’). text(?message). 

text(’#n #n #n Continue ’). text(?opt). text(’ the req track elective ?’). 
button(Yes,yes,40,6,5). 
button(No,main_menu,47,6,5). 
end. 



topic yes. 

close_windo w(? wh 1 ) . remove_topic( wh 1 ) . 
close_window(?wh2). remove_topic(wh2). 
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if exists(editl) then edl is ?editl. if exists(edit2) then ed2 is ?edit2. 
enable. window(?wh). if one_of((2,3], Selection) then choice is 2. 

end. 

topic main.menu. 

close. window(?wh) . remove_topic(wh) . 

close_window(?whl). remove_topic(whl). close_window(?wh2). remove_topic(wh2). 
enable_window(?wnienu). 
selectionQ. 

end. 

topic &add. 

set_title(?wmenu/ ADDING THE COURSE ELECTIVE’), 
edl is []. ed2 is []. ed3 is []. option is 2. choice is 1. election is 1. 
FonnatDisplay(?option/ added’), opt is ’adding’, 
button (OK,continue, 22,9,5). 
button (cancel, can, 30 ,9,8). 

topic continue. 

second.displayO- 
button (OK,oke,22,12,5). 
button (cancel, not.add, 30 ,12,8). 
end. 

topic oke. 

ed2 is get_text(?ed2). ed3 is get_text(?ed3). written is 5. 

do(concat(&,?edl)). message is concat(?ed2,’#fblue has been added into Database’). 
ed2 is []. ed3 is []. displayJnfoQ. 

end. 

topic not.add. 

message is ’ ’. display.infoQ. 
end. 

topic &1. if ?ed3 is ’Required’ then aitrack gets (?ed2) else aielect gets (?ed2). end. 

topic &2. if ?ed3 is ’Required’ then tstrack gets (?ed2) else tselect gets (?ed2). end. 

topic &3. if ?ed3 is ’Required’ then setrack gets (?ed2) else seelect gets (?ed2). end. 

topic &4. if ?ed3 is ’Required’ then dbtrack gets (?ed2) else dbelect gets (?ed2). end. 

end. 

topic FormatDisplay(option,job). 

wh is window(,8,9,77,13„ [Dialog window, visible]). disable_window(?wmenu). 
text(#e). 

text(’#n#fblue Select the elective track to be ’). text(?job). 

text(’#n#n#fblue Emphasis number :#d’). 

radio_button([(’l - Artificial Intelligence’,26,4], 

[’2 - Tactical Computer System’,26,5], 

[’3 - Software Engineering’,26,6], 

[’4 - Military Data Processing’,26,7]],track). 

edl is editjine(?edl„22,4,3). 

end. 
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topic second_display. 
disable_window(?wh). 

whl is window(,9,8,75»15„[Dialogwindow,visible]). 
text(#e). text(’#fblue 

Emphasis number : 



Course number :#d’). 

sei_display_pos(22,2). texi(?datatrack). 
ed2 is edit_line(?ed2„22,5,9). 
if ?option > 1 

then radio_button([[Required,33,9].[Optional,33,lO]],elective) and 
set_display_pos(2,9) and 
text(’#fblue Elective type : #d ’) and 

ed3 is editjine(?ed3„22,9,10). 
set_display_pos(42,3). 
text(’#fblue Req Track Elective’), 
if ?edl is 1 

then tracklist is combine(?aitrack, ?aielect) 
else ( if ?edl is 2 

then tracklist is combine(?tstrack, ?tselect) 
else ( if ?edl is 3 

then tracklist is ?setrack 
else tracklist is ?dbtrack)). 

list_box(?tracklist,input_data,45,4,10,„t,[list_select_event,double_click_event]). 
if ?election is 1 then set_display_pos(63»2) and text(’#fblue Available’) and 
set_display_pos(63,3) and text(’#fblue Courses’) and 

list_box( remove(?coursel»?tracklist),new_data,63,4,10„,t,[list_select_event,double_click_event]). 
end. 

topic input_data(item). 
if one_of([2»3]»?choice) 

then ed2 is ?item and ed2 is editjine(?ed2„22,5»9). edit2 is ?item. 
end. 

topic new_data(item). 
if ?choice is 1 

then ed2 is ?item and ed2 is edit_line(?ed2»»22,5,9). editl is ?item. 
end. 

topic track(item). 

datatrack is ?itcm. 

char is list_of_char(?item). edl is rirst(?char). 
edl is edit_line(?edl„22,4,3). 
edl is get_text(?edl). editl is ?edl. 
end. 



topic elective(item). 
if one_of([l,5],?choice) 

then ed3 is ?item and ed3 is editjine(?ed3„22,9,10). 
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end. 



topic &Help. 

wh is window(,8.8,74,16„(Dialogwindow.visible]). 
text (#e^ead (*info.hyp\ concat (7/\elective) ,7/’) ). 
set_file_pos (’info.hyp’.O.beginning). 
b2 is button(Ok,continue,30,14). 
set_focus(?b2). 
waitQ. 

close_windowO. 

end. 

topic update_file. 
trackel is []. 

trackel gets list_to_string(combine(list_to_siring(?aiirack),list_to_string(?aielect)),7/*). 
trackel gets list_to_string(combine(list_to_string(?tstrack).list_to_string(?tselect)),7/*). 
trackel gets list_to_string(combine(list_to_string(?seirack),list_to_string(?seelect)),7/*). 
trackel gets list_to_string(combine(list_to_string(?dbtrack).list_to_string(?dbelect)).7/*). 
(* new_file(*trackelt.ut’). 

write(*irackelt.ut7?trackel). close(*irackelt.ut’).*) 
end. 

topic ’previous^menu’. 

new_file(’tempo.dat’)* 

write(’tempo.dat’,2). 

if ?written is 5 then update^fileQ. close_allO. close_window(?wmenu). 
do(!main). 
end. 

topic ’quit_to_system’. 

if ? written is 5 then update^fileQ. 
close_all(). 
clearQ. 
end. 

(♦ END ELECTIVE.KB *) 



(* Title : course.kb 
Author : suprapto 



*) 

wmenu is window(sclcct:&quiu5,5,82,21„[Popup„ControlMenu,ThickFrame,ShowChildren,Siblings]). 
ml is menu(([E&xit, ’Previous_menu\ *Quit_to_system*],&Helpl,select). 
set_title(?wmenu/COURSE OBJECT*). 

set_title(? wmenu, ’COURSE OBJECT*), test is 0. 

show_window(? wmenu). written is 0. 

wh is window( ,22, 13,46,4„[Dialogwindow, visible]). 

text(*#n #fred Loading Data ’). 

use_font(system_font). 
make_modal(?wh). show_window(?wh). 
read_file(). close_windowO. 
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topic read_file. 
course is read(’course.ut’). 
course 1 is read(’coursel.ut’). 

courseNum is string_toJist(element(siring_to_list(?coursel,7/')J)). 
courseName is string_to_list(element(string_toJist(?coursel,7/’),2)/@’). 
length is list_lengih(?courseNum). no is 1 . 
repeat 

courseList gets concat(element(?courseNum,?no),* *,element(?courseName,?no)) and 
no is ?no + 1 
until ?no > ?length. 
end. 

selection(). 
topic selection. 

text(#e). enable_menu_item(?ml,[E&xit]). 
text (’#n#fred 

MANAGEMENT COURSE DATA OBJECT#FBLUE 
-#d’). 

set_di splay _pos (16,15). 

text(*#fblue ’)• 

button(*UPDATE THE COURSE \&update,24.6,32). 
button( ’DELETE THE COURSE ’,&delete,24,9,32). 
button(’ADD THE COURSE ’,&add,24, 12,32). 
waitQ. 

end. 

topic select(item). 

do (?item). 
end. 

topic &update. 

set_title(?wmenu,’UPDATE THE COURSE*). 
disable_menuJtem(?ml,[E&xit]). option is *#FRED updating*. 
displayboxO. 

topic displaybox. 

text(#e). set_display_pos(5,13). text(*#fblue Course Number to be updated :*). 
set_display_pos(5,2). edl is []. 

text(*#fblue COURSES in the Database #fred (Select the course to be updated)*). 

Lb is list_box(t?courseList],input_data,5,4,40,„t,[list_select_event,double_click_event]). 
edl is editjine(„35,13,10). 
button (OK,Ok,55,5,10). button(Cancel,can,55,9,10). 
end. 
end. 

topic input_daia(item,info_name). 

edfleld is ?item. edl is string_toJist(?edfield). edl is first(?edl). 
edl is editjine(?edl„35,13,10). 

if ?info_name is *double_click_event* then edl is get_text(?edl) and 
editone is ?edl and check_dataQ. 
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end. 



topic Ok. 

if not(get_iexi(?edl) is []) then edl is get_text(?edl) and 
editone is ?edl and check_data() 
else input_data(getJist_box(?Lb)). 



end. 

topic check_dataQ. 

if ?option is *#fred Updating’ then edii^courseQ 
else ( if ?option is ’#fred deleting ’ then delete_courseO 
else add^courseO). 

end. 

topic edit^course. 

if one_of(?courseNum. ?edl) 
then editO 
else 

message is concat(?edl, ’#fblue was not found in the course file !’) and 
display_info(). 

end. 

topic deleie_course. 

if one_of(?courseNum, ?edl) 
then deleteO 
else 

message is concat(?edl/#fred was not found in the course file !!*) and 
display_infoO. 

end. 

topic display_info. 

disable_window(?wmenu). 

disable_window(?wh). 

whl is window(,20,10^1.12„[Dialogwindow,visible]). 
text(’#n #n ’). text(?message). 

iext(’#n #n #n Continue *). text(?option). text(’ the course file ?’). 
button( Yes.y es,35 ,6,6) . 
button(No4nain_menu,43,6,6). 
end. 

topic yes. 

close_window(?wh). remove_topic(wh). enable_window(?wmenu). 
close_window(?whl). remove_lopic(whl). edl is ?editone. 
if ?oplion is ’#fred deleting * then ( if not(?message is ’ ’) then &deleieO 

else edl is editjine(?edl„35,13,10)) 
else ( if ?opiion is *#fred adding’ then &add() 
else edl is editjinc(?edl„35,13,10)). 

end. 

topic main^menu. 

close_window(?wh). remove_topic(wh). 
close. window(?wh 1 ). remove_topic(wh 1 ). 
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enable_window(?wnienu). 

selectionO- 

end. 

topic get_data. 

Idrec is element(?course, where(?courseNum, ?edl)). 
ed is string_toJist(?ldrec»7/*). 

ed2 is elemem(?courseName, where(?courseNum, ?edl)). 
ed3 is first(strmg_toJist(element(?ed, 2))). 
edp is elemem(?ed,3). 

ed4 is lasi(string_to_list(elemem(?ed, 2))). ed5 is element(?ed,4). 
ed6 is element(?ed, 5). 

end. 

topic edit. 

keyvalue is ?edl. 

get_daiaO. 

set_title(?wmenu/ UPDATE THE COURSE*). 

FonnatDisplayO. 

button (Update,yesUpdate,20,14,10). 
button (cancel, notUpdate. 32,14,10). 

topic notUpdate. 

message is * *. display_infoO. 

end. 

topic yesUpdate. 
edl is get_text(?edl). 
ed2 is geLtext(?ed2), 
ed3 is get_text(?ed3). 
ed4 is get_text(?ed4). 
ed5 is get_text(?ed5). 
edp is get_text(?edp). 
ed6 is get_text(?ed6). 
set_display_pos(20, 16). 
disable_window(?wh) . 
if one_of(?courseNum, ?edl) 
then (if ?edl is ?keyvalue 
then updatedataO 

else message is concat(?edl,*#fred was in the course file !#d*) 
and display_infoO) 

else message is concat(?edl,*#Fred was not in the course file ! Please, add first*) and 
display_infoO. 

end. 

end. 

topic updatedata. 

edrec is list_to_string(combine(?edl,concat(?ed3,’ *,?ed4),?edp,?ed5.?ed6),7/’). 
course is replace(?course, ?ldrec,?edrec). 
courseName is replace(?courseName, element(?courseName, 
where(?courseNum,?edl)), ?ed2). 
ed is concat(?edl,* *). ed is concat(?ed,?ed2). 
courseList is replace(?courseList,?edfield,?ed). 
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written is 5. 

message is concat(?edl/#fblue has already been updated !!#d’). 
display_infoO. 

end. 

topic &delete. 

di sable_menu_item(?m 1 , [E&xit]) . 
set_iitle(?wmenu/DELETE THE COURSE*). 
displayboxQ. 

topic displaybox. 

text(#e). set_display_pos(5.13). text(*#fblue Course Number to be deleted 
set_display_pos(5,2). edl is (]. option is *#fred deleting 

text(’#fblue COURSES in the Database #fred (Select the course to be deleted)’). 
Lb is list_box(I?courseList],input_data,5,4,40,„t,(list_select_event,double_click_event]). 
edl is editjine(,,35,l3,10). 
button (OK,OK.55»5,10). button(Cancehcan,55.9,10). 
end. 
end. 

topic delete. 
get.dataO. 

set_title(?wmenu/DELETE THE COURSE’). 

FormatEh splay 0. 
set_display_pos(20,2). text(?edl). 
set_display_pos(20,4). text(?ed2). 
set_display_pos(20»6). text(?ed3). text(’ / ’). text(?ed4). 
set_display_pos(20,8). text(?edp). 
set_display_pos(20.10). text(?ed5). 
set_display_pos(20,ll). text(?ed6). 
set_display_pos(4,14). text(’#fred Delete this Course ?’). 
button(YES,yesdelete.24,14,10). button(NO, notdelete,35,14,10). 
wait( ). 
end. 

topic yesdelete. 

course = remove(?course,?ldrec). 
courseList = remove(?courseList,?edfield). 
courseNum = remove(?courseNum, ?edl). 
courseName = remove(?courseName, ?ed2). 
written is 5. 

message is concat(?edl,’#fblue deletion has been done’). 
display_info(). 

end. 

topic noidelete. 

message is ’ display^infoQ. 

end. 

topic can. 
test is 0. 
selectionQ. 
end. 
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topic &add. 

disable_menu_item(?ml,[E&xit]). text(#e). option is ’#fred adding*, 
edl is []. ed2 is []. ed3 is (]. ed4 is []. edp is []. ed5 is []. ed6 is (]. 
set_title(?wmenu/ADD THE COURSE ’). 

FormatDisplayO. set_display_pos(55.1). 
text(’#fblue Courses in Database ’). 
list_box(?CourseLisu,5 1 ,2,25,„t) . 
button (’Add data (OK)’,Ok_Add.l8,15,16). 
button (cancel, not_add, 39,15,8). 
set_focus(?edl). 

topic not_add. 

editone is get_text(?edl). disable_window(?wh). 
message is ’ display_info(). 
end. 

topic Ok_Add. 

editone is geLtext(?edl). disable_window(?wh). 
if one_of(?courseNum, get_text(?edl)) 

then message is concat(?editone,’#fred was in the course file !#d’) 
else if (?editone is [] or get_text(?ed2) is []) then message is ’#fred Enter Course Number & Course Name Please 

l» 

else (edrec is combine(get_text(?edl), concat(get_text(?ed3),* get_text(?ed4)), 

get_text(?edp), get_text(?ed5),get_text(?ed6)) and 
course gets (list_to_string(?edrec,’//’)) and courseName gets get_text(?ed2) and 
ed is concat(get_text(?edl)/ ’,get_text(?ed2)) 
and courseNum gets (get_text(?edl)) and courseList gets (?ed) and 
set_display_pos(50,15) and written is 5 and 

message is concat(get_text(?edl),’#fblue has been added into a course file’)). 
display.infoQ. 



end. 

end. 

topic FormatDisplay. 

wh is window(,17,8,65,17„[Dialogwindow,visible]). 
text(#e). set_display_pos(l,2). disable_window(?wmenu). 
text(’#fblue Course Number : 

Course Name : 

Credit Lec/Lab : 

Prerequisite : 

Description :#d ’). 
if not(?option is ’#fred deleting ’) then 
edl is editjine(?edl, .20.2,8) and 
display_record(). 

end. 

topic display.record. 

ed2 is editjine(?ed2„20,4,30). 
ed3 is editjine(?ed3„20,6,4). 
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set_display_pos(25,6). text(V’). 
ed4 is editjine(?ed4„27,6,4). 
edp is editjine(?edp„20,8,25). 
ed5 is edit Jine(?ed5„20» 10.40). 
ed6 is editjine(?ed6,.20,12.40). 

end. 

topic &Help. 

wh is window(.8,8,74, 16., [Dialog window, visible]), 
text (#e,read (’info.hyp*. concat (7/\course) .7/7 ). 
set_file_pos (’info.hyp’.O.beginning). 
b2 is button(Ok.continue.30,14). 
topic continue. 

close(’info.hyp7. close^windowO. 
end. 
end. 

topic update_file. 
new_file(*course 1 .txt’). 

write(*coursel.txt\list_to_string(combine(list_to_string(?courseNuni,* 7. 

list_to_string(?courseName.*@7).7/7)- 
close(’coursel .txt7. 
new_file(’course.ut7. 

write(’course.lxt’,?course). close(*course.ut7. 
close_all0. 
end. 

topic *previous_menu\ 
new_file(*tempo.dat7. 
write(’tempo.dat*,2). 
if ?written is 5 then update_file(). 
close_windowO. 
do(!main). 
end. 

topic ’quit_to_system’. 
if ?written is 5 then update_file(). 
close_alI(). 
clearQ. 
end. 

(* end COURSEJCB *) 



(♦ Program : quarter Jcb 
Programmer : suprapto 

♦) 

wmenu is window(select:&quit,5.5,82,20..[Popup..ControlMenu.ThickJFrame.ShowChildren.Siblings]). 
ml is menu([[E&xit, *Previous_menu’, *Quit_to_sy stem’ ]*&Help], select). 
set_tiae(?wmenu.’QUARTER OFFERING OBJECT7. written is 0. 
show_window(? wmenu). qtrName is [Winter.Spning.Summer.Fall]. 

qtrList is [1. 2,3,4]. 
message is read(’QUARTER.TXT’). 

(* read file quarter.ut (quarter#, year, (course#)) 

It contains courses to be offered in each quarter *) 
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selection(). 



topic select(option). 
do(?option). 

end. 

topic selection. 

text(#e). text (’#n#frcd 

MANAGEMENT QUARTER OFFERING OBJECT#FBLUE 

-#d). 

set_display_pos(20, 1 5). 

text(’#fblue ’)• 

button(’UPDATE THE QUARTER OFFERING \&update,20.6,42). 
button(’DELETE THE QUARTER OFFERING \&delete,20,9,42). 
button(’ADD A NEW QUARTER OFFERING \&add,20, 12,42). 
waitQ. 

end. 

topic &add. 

set_tiUe(?wmenu,’ ADD A NEW RECORD QUARTER OFFERING’), 
edl is []. ed2 is []. ed3 is []. opt is ’#fred adding’. 
displayO. 
end. 



topic display. 

wh is window(,7,8,78,16„[Dialogwindow,visible]). 
use_font(system_font) . 
make_modal(? wh) . 

year is 0. quaner is 0. edl is []. ed2 is []. 

text(#e). set_display_pos(26,2). text(’#fblue Select the quaner to be added’). 

set_display_pos(26,3). text(’#fred #d’). 

radio_button([[Winter,38, 6], [Spring, 50,6], 

[Summer,38,7],[Fall,50,7]], quaner). 
radio_button([[91,33,9],[92,42,9],[93,51,9]],year). 
edl is editjine(?edl ,,27,6,9). 
ed2 is editjine(?ed2„27,9,4). 
set_display.pos(0,5) . 
text(’#fblue 

Quaner Name : 



Year :#d’). 

buuon(Ok,ok_add,28, 1 2,6). button(cancel,cancellation,37, 1 2,8). 
sho w_windo w(? wh) . 
end. 

topic ok_add. checkdaiasQ. end. 

topic checkdatasQ. 
search_data(). 

listboxformatO. 
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end. 



topic listboxformat. 

year is 0. quarter is 0. 

texi(#e). set_display_pos(24,2). text(*Enter the course to be added*). 

set_display_pos(24,3). text(’#fred -#d*). 

set_display_pos(12,6). text(’#fblue Quarter Name : ’). text(?edl). 
set_display_pos(12,9). text(’#fblue Academic year : ’). text(?ed2). 
set_display_pos(55,4) . 
set_display_pos(55,4) . 
text(’#fblue Courses are offered’). 
set_display_pos(60,5). 

text(’in ’). text(?ediil). text(’ ’). iext(?edit2). 

Listbox is list_box([?recordNum]„60,6,10„,t). 
set_display_pos(10,12). text(’#fblue Course Number :’). 
ed3 is editjine(?ed3„29.12,10). 
set_display_pos(9, 14). 

iext(’#fblue Add this course ? ’). button(Yes,yesadd,27,14,7). 
button(No,noi_add,37, 1 4,6). 
end. 

topic continue Add. 

close_windowO. ed3 is []. listboxformatO- 

end. 

topic not_add. 

info is ’ display_info(). 

button(Yes.continueAdd. 42,4,5). button(No,MainMenu,49,4,5). 
show_windowO. 
end. 

topic yes Add. 

ed3 is get_text(?ed3). 

if ?ed3 is (] then info is ’#n #fred Select course number, please !’ and 
test is 3 and display_messageO 
else (if one_of(?recordNum, ?ed3) then 

info is concat(?ed3,’#fred was in the database !’) 
else AddRecordO and written is 5 and 

info is concat(?ed3,’#fblue has been added into Database’)) and 
display_infoO and button(Yes,continueAdd, 42,4,5) and button(No,MainMenu,49,4,5) 
and show_windowO. 

end. 

topic display_info. 

w2 is window(,16,12,56,8„[Dialogwindow,visible]). 
text(’#n ’). text(?info). text(’#n #n ’). 
text(’ Continue ’). text(?opt). text(’ the quarter offering ?’). 
use_font(system_font). 
make_modal(?w2). 
end. 



topic addrecord. 

recordNum gets (?ed3). 

newRec is concat(?Year_Qtr, ’//’, list_to_string(?recordNum,’ ’)). 
message is replace(?message, ?oldRec, TnewRec). 
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oldRec is ?newRec. 



end. 

(* *) 

topic &update. 

set_title(?wmenu,’UPDATE A QUARTER OFFERING’), 
edl is I]. ed2 is []. ed3 is []. opt is ’#fred updating’, 
header = ’#fblue Select the quarter to bo updated#d’. 

Format_DisplayO- 

end. 

topic format_display. 

wh is window(,7,8,78»16,»[Dialogwindow,visibIe]). 
use_font(system_foni) . 
make_modaJ(? wh) . 

year is 0. quarter is 0. edl is []. ed2 is []. 
text(#e). set_display_pos(26,2). text(?header). 

set_display_pos(26,3). texi(’#fred -#d’). 

radio_button([[Winter,38,6],[Spring,50,6], 

[Summer,38,7]»[FalU50»7]l» quarter). 
radio_button([[9U33,9],[92,42,9],[93,5l,9]],year). 
edl is editjine(?edl„27,6,9). 
ed2 is editjine(?ed2„27»9»4). 
sei_display_pos(0»5) . 
text(’#fblue 

Quarter Name : 



Year :#d’). 

button(Ok,ok_update,28»12,6). button(cancel»cancellation,37»12,8). 
show_window(?wh). 
end. 

topic cancellation, 
info is []. 

display_infoO. button(Yes»continue, 42»4,5). button(No,main_menu,49,4,5). 
show^windowQ. 

topic continue. close_windowO. end. 

topic main_menu. close_window(). close_windowO. end. 

end. 

topic ok_update. 

if ( not(?quarter is 0) and not(?year is 0)) then search_dataO and ed3 is [] and display_box() 
else info is ’#n #ffed Please select the options ’ and test is 0 and 

display_message() . 

end. 



topic search_data. 

no is 1. recordNum is []. totalrec is listjength(?message). 
repeat 
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oldrec is element(?message,?no) and 
record is string_to_list(?oldrec,7/’) and 

( if first(?record) is concat(?ed2/ *.element(?qtrList, where(?qtrName,?edl))) 
then Year_Qtr is first(?record) and 

recordNum is string_toJist(rest(?record),’ *) and no is ?totalrec) and 
no = ?no + 1 
until ?No > ?toialrec. 



end. 



’). text(?edl). 
*). text(?ed2). 



topic display_box. 

year is 0, quarter is 0. edit3 is []. ed3 is []. 
text(#e). set_dispIay_pos(15,2). 

text(*Select a course number to be updated from #fred the list box ’). 
set_display_pos(15,3)- 

text(*#fred — — 

set_display_pos(12,6). text(*#fblue Quarter Name 
set_display_pos(12,8). text(’#fblue Academic year 
set_display_pos(55,4). 
text(’#fblue Courses offered*). 
set_display_pos(55.5). text(*in *). 
text(?editl). text(* ’). text(?edit2). 

Lb is list_box([?recordNum],inputdatas,55,6,12.„t,list_select_event). 
set_display_pos(10.10). text(’#fblue Previous Course Number 
set_display_pos(10.12). text(’#fblue New Course Number 

ed3 is ediUine(?ed3„38,12,10). 
set_display_pos(9, 1 4) . 

text(’#fblue Update this course ? ’). button(Yes.yesUpdate.29.14,6). 
button(Cancel4iot_Update,38. 14,8). 

end. 



topic not_update. 

info is * *. display_info(). 

button(Yes,continueUpdate. 42,4,5). button(No,MainMenu,49,4.5). 
show_windowO. 
end. 

topic inputdatas(item). 

edit3 is ?item. set_display_pos(38,10). text(?edit3). 

end. 

topic display_message. 

wh is window(,28.l2.40,6„Pialogwindow,visible]). 
text(?info). 

button(Continue,con, 13,4, 15). 
use_font(sy stem_font) . 
make_modal(?wh). show_windowO. 
topic con. close.windowO. 
if ?test is 1 then display^boxQ 

else if ?test is 2 then formatdisplaysO 

else if ?test is 3 then listboxformatO- 



^d*). 
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end. 



end. 



topic yesUpdate. 

ed3 is get_text(?ed3). 

if ?ed3 is [] then info is *#n #fted Select course number, please ! * and 
test is 1 and display_messageO 
else (if one_of(?recordNum, ?ed3) then 

info is concat(?ed3,’#fred was in the database !') 
else updaierecordO and written is 5 and 

info is concat(?edit3,’#fblue has been changed with \?ed3,’ from the database’)) and 
display _tnfoO and button(Yes,continueUpdate, 42,4,5) and button(No,MainMenu,49,4,5) 
and show_windowO. 

end. 

topic continueUpdate. 

close_windowO. ed3 is []. display_box(). 
end. 

topic MainMenu. 

close_windowO. close_windowO. 
end. 

topic updaterecord. 

recordNum is replace(?recordNum,?edit3,?ed3). 
newRec is concat(?Year_Qtr,7/’,list_to_string(?recordNum,’ ’)). 
message is replace(?message, ?oldRec, TnewRec). 
oldRec is ?newRec. 
end. 



(*======================*) 

topic 4&delete. 

set^Utle(?wmenu.’DELETE A RECORD OF QUARTER OFFERING’), 
edl is []. ed2 is []. ed3 is []. opt is ’#fred deleting’. recordNum is []. 
header = ’#fblue Select the quarter to be deleted#d’. 

FormDisplayO. 

end. 

topic Formdisplay. 
formatdisplaysO- 
if ?recordNum is [] then 

button(Ok,ok_delete,28, 12,6) and button(cancel,cancellation,37, 1 2,8). 

end. 

topic formatdisplays. 
disable. window(?wmenu) . 

wh is window(,7,8J8,16„[Dialogwindow, visible]), 
year is 0. quarter is 0. 

text(#e). set_display_pos(26,2). text(?header). 

set_display_pos(26,3). text(’#fred #d’). 

radio.button([[Winter,38,6],[Spring,50,6], 

[Summer,38,7],[Fall,50,7]], quarter). 
radio_button([[91,33,9],[92,42,9],[93,5l,9]].year). 
edl is edit_line(?edl ,,27,6,9). 
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ed2 is edit_line(?ed2„27,9,4). 
set_display_pos(0,5) . 
text(’#fblue 



Quarter Name 



Year 

end. 

topic ok_delete. 

if ( noi(?quaner is 0) and not(?year is 0)) then search_dataO and ed3 is [] 
and displayboxO 

else info is *#n #fred Please select the options * and test is 0 and 

display_message(). 

end. 

topic year(item). 
ed2 is ?item. year is 1 . 

ed2 is editjine(?ed2„27,9,4). ed2 is ?item. edit2 is ?item. 
end. 

topic quarter(item). 

edl is ?item. quarter is 1. 

edl is edit_line(?edl„27,6,9). edl is ?item. editl is ?item. 

end. 

topic displaybox. 

year is 0. quarter is 0. 

text(#e). set_display_pos(26,2). text(*Select the courses to be deleted*). 

set_display_pos(26,3). text(’#fred — 

set_display_px)s(12,6). text(*#fblue Quarter Name : ’). text(?edl). 

set_display_pos(12,9). text(*#fblue Academic year : ’). texi(?ed2). 

set_display_pos(55,4) . 

text(’#fblue Courses are offered*). 

set_display.pos(55,5). text(’in ’). 

text(?editl). text(* ’). text(?edit2). 

Lb is list_box([?recordNum],inpuldata,55,6,12„t,t,list_select_event). 
set_display_pos(10,12). text(’#fblue Course Number :*). 
ed3 is editjine(?ed3„29,12,25). 
set_display_pos(9, 14). 

text(*#fblue Delete this course ? *). button(Yes,yesdelete,29,14,6). 
button(Cancel4iot_delete38, 14,8). 
end. 

topic inputdata(item). 

ed3 is ?item. ediG is ?item. ed3 is editjine(?ed3„29, 12,25). 
end. 

topic not_delete. 

info is ’ display_info(). 

button(Yes,continueDelete, 42,4,5). button(No,MainMenu,49,4,5). 
show_windowO. 
end. 



-#d’). 
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topic continueDelete. 

close^windowO. ed3 is (]. displayboxO- 

end. 



topic yesDelete. 

ed3 is get_text(?ed3). 

if ?ed3 is (] then info is *#n #fred Select course number, please !’ and 
test is 2 and display_messageO 
else (if not(intersect(?recordNum, ?edit3) is ?edii3) then 
info is concat(?ed3,’#fred was not in the database !’) 
else removerecordO and written is 5 and 

info is concat(?ed3,*#fblue has been deleted from Database’)) and 
display _infoO and button( Yes, continueDelete, 42,4,5) and button(No,MainMenu,49,4,5) 
and show_windowO. 

end. 

topic continueDelete. 

close_windowO. ed3 is []. displaybox(). 
end. 

topic removerecord. 

recordNum is remove(?recordNum,?edit3). 
newRec is concat(?Year_Qtr,’//’, list_to_string(?recordNum,* *)). 
message is replace(?message, ?oldRec, TnewRec). 
oldRec is ?newRec. 
end. 

topic &Help. 

wh is window(,8,8,74,16„[Dialogwindow,visible]). 
text (#e^ead (’infoJiyp’, concat (’//’,quaner) ,’//’) ). 
set_file_pos (’info.hyp’,0,beginning). 
b2 is button(0kjceep.on,30,14). 
set_focus(?b2). 
wait(). 

topic keep_on. 

close(’info.hyp’). close_windowO. 
end. 
end. 

topic update_file. 
new_file(’quaner.ut’). 
write(’quarter.ut*,?message). 
close(’quarter.ut’). 
end. 

topic ’previous_menu’. 
if ?written is 5 then update^fileQ. 
new_file(*tempo.dat’). write(’tempo.dat’,2). 
close_allO. close_window(?wmenu). 
do(!main). 
end. 
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topic *quit_to_system\ 

if ?written is 5 then update_fileO. 
close_aIl(). close_window(?menu). 
clearQ. 
end. 

(*- END QUARTER.KB ♦) 

(♦ Tide : STUDENT.KB 
Author : suprapto 



*) 

wmenu is window(select:&quit,5»4,82,23,*[Popup„ControlMenu»ThickFrame»ShowChildren,Siblings]). 
ml is menu([[E&xiu *Previous_menu\ *Quit_to_system’]»&Help],select). 
set_title(?wmenu/STUDENT OBJECT*). 

qtrList is [*91 1\*91 2\*91 3\*91 4*/92 T/92 2*.*92 3*/92 4*/93 1*,*93 2\*93 3\*93 4*]. 
quarterName is [’Winter 91*. ’Spring 91’,’Summer 9r,*Fall 91*. ’Winter 92*. ’Spring 92*. 

’Summer 92’,’Fall 92*. ’Winter 93’.*Spring 93*. ’Summer 93*. ’Fall 93’]. 
trackList is [’Artificial Intelligence ’.’Tactical Comp Systems’. ’Software Engineering’, 

’Military Data Processing’]. irackNumber is [1,2.3, 4]. 
quarterNumber is [1.2.3.4,5,6.7.8.9.10.11.12]. 
qtrNumber is [1.2.3.4.5.6.7.8]. 

qtrName is [’Winter 91*. ’Spring 91’.*Summer 91*. ’Fall 91*. 

’Winter 92’.’Spring 92’.’Summer 92’.’Fail 92’]. 
set_title(?wmenu. ’STUDENT OBJECT’), test is 0. 
show_window(?wmenu). written is 0. 

read_file(). 
topic read_file. 

SList is read(’studentl.txt’). 

Slength is list_length(?SList). No is 1. Sdtjd is []. 
repeat 

Sdt_Id gets(first(string_to_list(element(?SList.?No)))) and No = ?No + 1 
until ?no > ?Slength. 



SInfo is read(’student.txt’). 

(* read file student.txt that contains student_Id, name (kept in SList) and 
student Information(name.rank.section etc) kept in SInfo ♦) 



(♦ coursel is read( ’coursel.txt’). 

courseNum is string^to_list(element(string_toJist(?coursel,’//’).l)). 
courseName is string_toJist(element(string_to_list(?coursel.’//’),2).*@’). ♦) 
end. 

selection(). 
topic selection. 

text(#e) . enable_menu_item(?m 1 . [E&x it] ) . 
text (*#n#fred 
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MANAGEMENT COURSE DATA OBJECT#FBLUE 
-#d). 

set_display_pos( 16, 17). 

iexi(’#fblue ’). 

button( ’UPDATE THE STUDENT’S INFO’,&update,24.7,32). 
button( ’DELETE THE STUDENT’S INFO ’.«fedelete, 24, 10,32). 
button(’ADD THE STUDENT’S INFO’,&add,24, 13,32). 
waitQ. 

end. 

topic select(item). 

do (?item). 
end. 

topic &update. 

set_title(?wmenu,’UPDATE THE COURSE’). 
disable_menuJtem(?ml,[E&xit]). option is ’#FRED updating’, 
wh is window(,7,7,79,19„[Dialogwindow,visible]). 
use_font(sy stem_font) . 
make_modal(?wh) . 
displayboxO. 

topic displaybox. 

text(#e). seLdisplay_pos(5,13). text(*#fblue Student’s name to be updated :’). 
set_display_pos(5,2). edl is []. 

text(’#fblue STUDENT in the Database #fred (Select the student to be updated)’). 

Lb is list_box([?SList],input_data,5,4,30,„t,[list_select_event,double_click_event]). 
edl is editjine(„35,13,15). 
button (OK,Ok,55,5,10). button(Cancel,can,55,9,10). 
end. 
end. 

topic can. close^windowO. enable_menu_item(?ml,[E&xit]). end. 

topic input_data(item,info_name). 

edfield is ?item. SKey is ?item. edl is siring_toJist(?edfield). 
edl is first(?edl). key Value is ?edl. 
edl is editjine(?edl„35,13,l5). 

if ?info_name is ’double_click_event’ then edl is get_text(?edl) and 
editone is ?edl and check^dataQ. 

end. 

topic Ok. 

if not(get_text(?edl) is []) then edl is get_text(?edl) and 
editone is ?edl and check_data() 
else inpuLdata(get_list_box(?Lb)). 



end. 

topic check_dataO. 

if ?option is ’#fred Updating’ then edit_studentQ 
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else ( if ?option is *#fred deleting ’ then delete_student() 
else add^studentO). 

end. 

topic edit_student. 

if one_of(?SList, ?skey) 
then editO 
else 

message is concat(?edl, ’#fblue was not in the student file !*) and 
display_info(). 

end. 

topic delete_student. 

if one_of(?courseNum, ?edl) 
then deleteO 
else 

message is concat(?edl/#fred was not in the student file !!’) and 
display_infoO- 

end. 

topic display_info. 

w2 is window(,l 6, 12,56,8„ [Dialog window ,visible]). 
text(*#n ’)• text(?info). text(’#n #n *)• 
text(’ Continue ’). text(?option). text(’ the student’s info ?’). 
use_font(system_font) . 
make_modal(?w2). 

end. 

topic get_daia. 

edl is string_toJist(?skey). ed2 is concat(element(?edl,2),* *,element(?edl,3)). 
edl is first(?edl). 

SField is element(?SInfo, where(?SList,?Skey)). 
student_info is string_toJist(?SField,7/’). 
ed4 is element(?studem_info,3). ed3 is element(?student_info,2). 
ed5 is (element(?student_info,5)). 
ed6 is (element(?student_info,6)). 
ed7 is (element(?student_info,7)). 
ed8 is (element(?student_info,8)). 
ed9 is element(?student_info,4). 
end. 



topic FormatDisplay. 

wh is window(.8,8,77,17„[Dialogwindow,visiblel). 
text(#e). set_display_pos(l,2). disable_window(?wmenu). 
text(’#fblue Student Jd : Name: 



Rank : 
Section : 



4th quarter : 
8ih quarter : 



Track Name : 



Selected Courses : 
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Taken Courses : #d *). 

lisi_box((?qtrName].inpui_track,60»4, 1 3.2.„lisi_seleci_evem) . 
lisi_box([?trackListl.input_quaier,45J,26.2.„list_seleci_eveni). 
display_record(). 

end. 

topic inpui_track(item). 

if noi(?option is ’#fred deleting’) then gei_trackName(?item). 
end. 

topic get_trackName(item). 

ed5 is element(?quanerNumber, where(?quanerName. ?item)). 
ed6 is ?ed5+3. 

set_display.pos(45,4). text(’ *). 

set_display_pos(45,5). text(* ’). 

set_display_pos(45,4). text(element(?quanerName. where(?quarierNuniber, ?ed5))). 
set_display_pos(45,5). text(element(?quanerName. where(?quanerNumber, ?ed6))). 
ed5 is eIement(?qtrList, where(?quanerNumber,?ed5)). 
ed6 is element(?qcrList, where(?quanerNumber,?ed6)). 

end. 

topic input_quater(item). 
if not(?option is *#fred deleting’) then 
ed9 is element(?trackNumber, where(?irackList, ?item)) and 
set_display_pos(20.8) and text(’ *) and 

set_display_pos(20.8) and text(?item). 

end. 

topic di splay _record. 

edl is editjine(?edl„15,2,12). 
ed2 is editjine(?ed2„45,2,20). 
ed3 is editJine(?ed3„15A10). 

set_display_pos(45,4). text(element(?qtrName, where(?qtrList, ?ed5))). 
set_display_pos(20,8). text(element(?crackList, where(?trackNumber, ?ed9))). 
ed4 is editJine(?ed4„15A8). 

set_display_pos(45.5). text(element(?qtrNanie, where(?qtrList, ?ed6))). 
ed7 is edit Jine(?ed7,, 20, 10,52). 
ed8 is editjine(?ed8„20, 12,52). 

end. 

topic edit. 

keyvalue is ?edl. 
get_dataQ. 

set_utle(?wnienu,’UPDATE THE STUDENT’S INFO’). 

FormaiDisplayO. 

button (Update,yesUpdate,20,14,10). 
button (cancel,cancellation, 32,14,10). 

end. 

topic cancellation, 
info is []. 

display_infoO. button(Yes,continue, 42,4,5). button(No,mainmenu,49,4,5). 

show_windowO. 

topic continue. 

close_window(). 

if not(?option is ’#fred adding’) then close_windowO. 

end. 

topic mainmenu. 
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end. 



closc_window(). close_window(). cnablc_mcnu_itcm(?mUE&xii]). 
if not(?option is *#fred adding*) then close_window(). 

end. 

topic yesUpdate. 
edl is get_iext(?edl). 
ed2 is gct_text(?ed2). 
ed3 is gct_iext(?ed3). 
ed4 is gct_iext(?ed4). 
ed8 is gct_iext(?ed8). 
cd7 is gct_icxt(?ed7). 

set_display_pos(20.16). newKey is list_to_string(combine(?edl,?ed2),’ ’). 

if not(one_of(?Slist, Tnewkey)) 

then ( if one_of(different(?Sdl_Id,?keyValue),?edl) 

then info is concat(?edl,’#fred was in the course file !#d’) 
else updatedataO) 
else (if ?edl is ?key Value 
then updatedataO 

else info is concat(?edl/#fred was in the course file !#d*)). 
display JnfoQ. button(Yes.continueUpdate, 42,4,5). button(No,MainMenu,49,4,5). 
show^windowQ. 

end. 

topic continueUpdate. close_windowO. close_windowO. close_windowO. &update(). end. 
topic MainMenu. 

close_windowO. close_windowO. enable_mcnuJtem(?ml,[E&xitJ). 
close^windowO- 

end. 

topic updatedata. 

Slist is replace(?SList,?Skey,?newKey). 

edrec is list_to_string(combine(?edl ,?ed3,?ed4,?ed9,?ed5,?ed6,?ed7.?ed8),7^• 

Sinfo is replace(?Sinfo, ?SField,?edrec). 
written is 5. 

info is concat(?edl,’#fblue has already been updated !!#d’). 

end. 

topic &delete. 

disable_menuJtem(?ml,[E&xit)). 
set_title(?wmenu,*DELETE THE STUDENT*S INFO’) 
wh is window(,7,7,79,19„pialogwindow,visible)). 
use_font(sy stem_font) . 
make_modal(?wh). 
displaybcxQ. 

topic displaybox. 

text(#e). set_display_pos(5.13). text(’#fblue The student‘s Id to be deleted :*). 
sei.display_pos(5,2). edl is [). option is ’#fred deleting’. 

text(’#fblue STUDENT in the Database #fred (Select the student to be deleted)’). 

Lb is list_box((?SLisll,input_data,5,4,30„,t,(lisLselect_event,double_click_event)). 
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edl is editJine(„35.13J5). 

button (OK,delete»55,5,10). button(Cancel,can, 55,9,10). 
end. 
end. 

topic delete. 
get_data0- 

set_tiile(?wmenu, ’DELETE THE STUDENT* S INFO’). 

FormaiDisplayO. 

set_display_pos(4,14). text(’#fred Delete this record ?’). 
button(YES,yesdelete,24,14,10). button(NO, cancellation,35,14,10). 
wait( ). 
end. 

topic yesdelete. 

Slist is remove(?SList,?Skey). 

Sinfo is remove(?Sinfo, ?SField). 
written is 5. 

info is concat(?edl,’#fblue has already been updated !!#d’). 

display_infoO. button(Yes,continuedelete, 42,4,5). button(No,MainMenu,49,4,5). 
show_windowO. 

end. 

topic continueUpdate. close_windowO. close_windowO. close_windowO. &delete0- end. 



topic &add. 

disable_menu_item(?ml,[E&xit]). option is ’#fred adding’. 

edl is []. ed2 is []. ed3 is []. ed4 is []. ed7 is []. ed5 is []. ed6 is []. edS is []. ed9 is []. 
set_Utle(?wmenu,’ADD THE STUDENT‘S INFO’). 

FormaiDisplayO. set_display_pos(55,l). 
button (’Add data (OK)’,Ok_Add,I8,l5,I6). 
button (cancel, cancellation, 39,15,8). 
set_focus(?edl). 

topic Ok_Add. 
edl is get_text(?edl). 
ed2 is get_text(?ed2). 
ed3 is get_text(?ed3). 
ed4 is get.text(?ed4). 
ed8 is get_text(?ed8). 
ed7 is get_text(?ed7). 

newKey is list_to_string(combine(?edl,?ed2),’ ’). 
if not(one_of(?Slist, Tnewkey)) 
then add_record() 

else info is concat(?edl,’#fred was in the course file !#d’). 

display_infoO. button(Yes,continue_add, 42,4,5). button(No,Main_Menu,49,4,5). 
show_windowO. 

end. 

topic continue_add. close_windowO. close_window(). &add(). end. 
topic Main_menu. 

enable_menu Jtem(?m 1 , [E&xit]) . close_windowO . 
close_window(). 

end. 
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topic add.recordO- 
Slist gei5(?newKey). 

edrec is list_to_string(combine(?ed 1 ,?ed3,?ed4,?ed9,?ed5,?ed6,?ed7,?ed8),7/*). 
Sinfo gets(?edrec). 
written is 5. 

info is concat(?edl,*#fblue has already been updated !!#d’). 



end. 

end. 



topic &Help. 

wh is window(, 8,8,74, 16„[Dialogwindow,visible]). 
text (#e,read (’info.hyp*, concat (7/\student) ,7/7 ). 
set_file_pos (’info.hyp\0,beginning). 
b2 is button(Ok,continue,30,14). 
topic continue. 

close(*info.hyp’). close_window(). 
end. 
end. 

topic update_file. 
new_file( ’course 1 .txt’). 

write(’coursel.txtMist_to_string(combine(list_to_string(?courseNuni), 

list_to_string(?courseName,*@’)),7/’))- 

close( ’coursel.txt’). 
new_file(’course.txt’). 

write(’course.ut’,?course). close(’course.ut’). 

close_allO. 

end. 

topic ’previous_menu’. 
new_file(’tempo.dai*). 
wri te( ’ tempo.dat ’ ,2) . 
if ?written is 5 then update_file(). 
close_windowO. 
do(!main). 
end. 

topic ’quit_to_system*. 
if ?written is 5 then update_file(). 
close_all(). 
clearQ. 
end. 

(♦ end student JCB *) 

(♦ program : emphasis Jcb 

author : suprapto 

*) 

wmenu is window(select:&quit,5.5,82,21„[Popup„ControlMenu,ThickFrame,ShowChildren,Siblings]). 
ml is menu([[E&xit, ’Previous_menu\ ’Quit_to_system’],&Help,&Print, 

[&Emphasis_Area,’Aniricial Intelligence’, Tactical Comp Systems’,’Software Engineering’, 
’Military Data Processing’]],select). 

set_title(? wmenu, ’QUERY EMPASIS AREA’). disable_menuJtem(?ml,[&Print]). 
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show_window(? wmenu) . 
logo(). 

topic logo. 

wh is window(,22,12,46A,[Dialogwindow, visible]). 

text(*#n #fired Loading Data ’)• 

use_font(system_font). 
make_modal(?wh). show_window(?wh). 

eof is number_to_char(26). 
message is readjine(*track.ut*,4). 
repeat 

courseField gets ([?message]) and 
message is readjine(*track.txt*,4) 
until ?message is ?eof. close^allQ. close_windowO. 
text(#e). 
end. 

topic select(item). 
do (?item). 

topic ’Artificial Intelligence’, 
message is element(?courseField,l). 

Update(). 

end. 

topic ’Tactical Comp Systems’, 
message is element(?courseField,2). 

UpdateO. 

end. 

topic ’Software Engineering’, 
message is element(?courseField,3)» 

UpdateO. 

end. 

topic ’Military Data Processing’, 
message is element(?courseField,4). 

UpdateO. 

end. 



topic update. 

msg is ?message. 
edl is first(?message). 
ed2 is first(?message). 
ed3 is first(?message). 
ed4 is first(?message). 



message is rest(?message). 
message is rest(?message). 
message is rest(?message). 
message is rest(?message). 



set_title(? wmenu, ’QUERY EMPHASIS AREA’). 
FormatDisplayO. 
button (Continue, OK.18, 14,15). 



topic ok. 

text(#e) . disable_menu_iiem(?m 1 , [&Print]). 
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enable_menuJtem(?ml,[&Emphasis_Area]). 

end. 

end. 

topic FormatDisplay. 

disable_menu Jtem(?m 1 ,[&Emphasis_Area]). 
enable_nienujtem(?ni l,[&Print]). 

(* disable_window(?wmenu). 
wh is wmdow(,6, 8, 80, 17„Pialogwindow, visible]).*) 
text(’#e #fBLUE 

Emphasis No : 



Track name : 



Description :#D *). 
edl is editjme(?edl„18,2,3). 
ed2 is editjine(?ed2„ 18,5,30). 
ed3 is editjine(?ed3„18.8,40). 
ed4 is editjine(?ed4„ 18,10,40). 

end. 

topic &Help. 

wh is window(,l 1,8,68, 16„[Dialogwindow,visible]). 
text (#e/ead (’info.hyp*, concat (7/\quemphas) ///*) ). 
set_file_pos (*info.hyp*,0,beginning). make_modal(?wh). 
b2 is button(Ok,continue,30,14). 
topic continue. 
text(#e). 

close(’info.hyp’). close_window(). 

end. 

end. 

topic *Previous_menu’. 

new_file(’tempo.dat*). write(* tempo.dat M). 
close_aIl(). close_window(). 
do(!main). 

end. 

topic *quit_to_system\ 

close_all0. close_windowO. 
clearQ. 

end. 

end. 

(* end QUEMPHASXB *) 



(* Program : Quelec.kb 
Author : Suprapto 

*) 

wmenu is window(select:&quit,8,3,72,25..[Popup„ControlMenu,ThickFrame,ShowChildren,Siblings]). 
set_tiUe(?wmenu, ’QUERY ELECTIVE COURSE ’). 
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ml is menu([[E&xit,’Previous_Menu’/quiLto_system’],&Hclp,&Print,[&Emphasis_Arca/Anificial Intelligence', Tactical 
Comp Systems ’/Software Engineering’, 

’Military Data Processing ’]),select). 

trackName is [’Artificial Intelligence’, ’Tactical Comp Systems’,’Software Engineering’, 

’Military Data Processing’]. trackNo is [1, 2,3,4). 
sho w_window(? wmenu) . 

QtrName is [Winter,Spring,Summer,Fall]. QtrNo is [l,2,3,4j. 
wh is window(,22,12,46,4„[Dialogwindow,visible]). 

text(’#n #fred Loading Data ’). 

use_font(system_font). disable_menuJtem(?ml,[&Print]). 
make_modal(?wh). show_window(?wh). 

trackel is read( ’TRACKELT.TXT’). 

eof is number_to_char(26). 

qiiNumber is []. qtrYear is []. qtrList is []. 

message is readjine(’quarter.txt’,l). 

repeat 

message is siring_to_list(?message.’//’) and 
qtrList gets list_to_string(rest(?message),’ ’) and 
qtrNumber gets element(string_to_list(first(?message)),2) and 
qtrYear gets element(string_to_list(first(?message)),l) and 
message is read_line(’quarter.txt’,l) 
until ?message is ?eof. close.allQ. 



course 1 is read(’coursel.txt’). 

courseName is string_toJist(element(string_to_list(?coursel,’//’),2),’@’). 
coursel is string_to_list(element(strmg_to_list(?coursel, ’//’),!),). 
course2 is read( ’course.txt’). 

(* read file course.txt (CourseNumber, CourseName, 

crediiLecture,creditLab, (prerequisite) , description), 
courseNumbers will be kept in list COURSE 1 and 
creditLec, creditLab, prerequisite will be kept in COURSE2 



close_windowO. 

(* read file course.ut (CourseNumber, CourseName, 

creditLecture, creditLab, (prerequisite ) ,description), 
courseNumbers will be kept in list COURSE 1 and 
courseName, creditLec, creditLab, prerequisite will be kept in COURSE2 

♦) 

topic select(item). 

do (?item). 
end. 

topic searching. text(#e). 

wh is window(,22,12,46.2.,[Dialogwindow,visible]). 
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texi(’#fblue Serching data *). 

use_font(sysiem_foni) . 
make_modal(?wh). show_window(?wh). 
end. 

topic ’Artificial Intelligence’. 

(* searchingO. *) 

ed2 is ’Artificial Intelligence*. 

firstfile is string_toJist(element(string.toJist(element(?trackeU ),’//’), 1)). 
secondfile is string_toJist(element(string_to_list(elemem(?irackel,l ),’//’), 2)). 
&display_record(). 
end. 

topic ’Tactical Comp Systems’. 

(* searchingO. *) 
ed2 is ’Tactical Computer Systems’. 

firstfile is string_to_list(element(siring_to_list(element(?trackel, 2), ’//’),!)). 
secondfile is siring_toJist(element(string_toJist(element(?trackel.2),’//’X2)). 
&display_recordO. 
end. 

topic ’Software Engineering’. 

(* searchingO. *) 

ed2 is ’Software Engineering’. 

firstfile is string_toJist(element(string_toJist(element(?trackel,3)///’)»l)). 
secondfile is string.to_list(elemem(string_toJist(element(?trackel,3)»7/’).2)). 
&display_recordO. 

end. 

topic ’Military Data Processing’. 

(* searchingO. *) text(#e). 
ed2 is ’Military Data Processing’. 

firstfile is string_toJist(element(string_to_list(element(?trackel,4),’//’),l)). 
secondfile is string_to_list(element(siring_toJist(element(?irackel,4),’//’),2)). 

&display_recordO. 

end. 

topic &display_record. 

disable_menu_item(?m 1 ,[&Emphasis_Area]). 
enable_menu Jtem(?m 1 , [&Print ]) . 
text(’#e #fblue 



EMPHASIS ELECTIVE COURSE 



TRACK NAME : 



COURSE NO COURSE NAME 

set_display_pos(30,5). text(?ed2). 



ELECTIVE TYPE 
’). 



row is 8. 

cp is ’#fred Required’. recordNo is lisUengih(?firstfile). no is 1. 
repeat 
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No = ?no +1 and 

cn is concat(*#m\*#fred *,element(?firstfile,?no)/#m*) and 

cm is concat(’#m*/#fred \elemem(?courseName, where(?coursel, element(?firsLfile,?no))),’#m’) 
and displayO 
until ?No is ?recordNo. 

cp is ’#fblue Optional’. recordNo is list_length(?secondfile). no is 1. 
repeat 

No = ?no +1 and 

cn is concat(’#m\*#fblue \element(?secondfile,?No)/#m*) and 

cm is concat(’#m\*#fblue *.element(?courseName, where(?coursel, element(?secondfile,?no)))/#m’) 
and displayO 

until ?No is ?recordNo. set_display_pos(3,20). 
text(’#fblue Please click Course Number, for more information !’). 
button(continue,continue.60,20, 1 0). 
topic continue. 

text(#e). enable_menu_item(?ml ,[&Emphasis_Area]). 
disable_menu_item(?m 1 ,[&Print]). 
end. 
end. 

topic mark(item). 

wh is window(, 15.6.60, 18,. [Dialogwindow, visible]), n is 2. 
dummy is list_of_char(?item). 

if lisUength(?dummy) > 6 then item is element(?coursel. where(?courseName. ?item)). 
message is string_to_list(element(?course2, where(?coursel, ?item)).7/’)* 
text(*#n#fblue Course Number *). set_display_pos(17,?n). text(*: ’). text(?item). 
text(#n). n = ?n + 2. 

text(*#n#fblue Course Name ’). set_display_pos(17,?n). text(’: *). n = ?n + 2. 
text(element(?courseName. where(?coursel,?item))). text(#n). 
text(*#n#fblue Credit Lec/Lab ’). set_display_pos(17.?n). text(*: ’). n = ?n + 2. 
text(rirst(string_loJist(element(?message.2)))). text(* / ’). 
text(last(string_toJist(element(?message,2)))). text(#n). 

texi(*#n#fblue Prerequisite *). seudisplay.pos(17,?n). text(*: *). n = ?n + 2. 
text(element(?message,3)). text(#n). 

text(’#n#fblue Crs description *). set_display_pos(l7,?n). text(*: *). 
text(element(?message,4)). text(#n). 

text(* *). text(elemem(?message,5)). text(#n). 

textC#n#fblue Course offered in ’)• n is 1. wait(.O.OOOOOl). 
repeat 

( if one_of([5,10],?n) then text(*#n ’)) and 

( if one_of(string_to_list(element(?QtrList,?n).* ’). ?item) 

then text(element(?qtrName, where(?qtrNo, element(?qtrNumber,?n)))) 
and text(* ’) and text(element(?qtrYear,?n)) and text(* *) ) and 
n = ?n + 1 
until ?n is 12. 
use_font(system_font). 
make„modal(?wh). show_window(?wh). 
button(Ok.continue,48. 16,10). 
topic continue. 

close_windowO. 

end. 

end. 

topic display. 
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row is ?row+l. 

seLdisplay_pos(5,?row). text(?cn). 
set_display_pos( 1 8,?row). text(?cm). 
seLdisplay_pos(55,?row). text(?cp). wait(,0 .00001). 
end. 

topic can. 

close_window(?wh). 

&menu_optionO. 

end. 

topic ’Previous_menu’. 

new_file(’tempo.dat’). write(’tempo.dat\ 1). 
close_all(). close_window(). 
do(!main). 
end. 

topic ’quit_to_system\ 

close_all0. close. windowQ. 
clearQ. 
end. 

topic &Print. 

prim (get.text (?wmenu)). 
end. (♦&Print*) 



topic &Help. 

wh is window(,11.8,66»16„[Dialogwindow»visible)). 
text (#e^ead (’infoJiyp\ concat (7/’,quelec) //n ). 
set.file.pos (*infoJiyp\0,beginning). make_modal(?wh). 
b2 is button(Ok,continue,30,14). 
topic continue. 

close(’info.hyp’). close.window(). 
end. 
end. 

(♦ end QUELECJCB *) 



(♦ Program : optadec.kb ♦) 

wmenu is window(select:&quiu5,3,82,25„[Popup„ComrolMenu,ThickFrame,ShowChildren» 

Siblings)). 

set.tiUe(?wmenu/ELECTIVE COURSE SELECTION’). 

ml is menu([[E&xit,’Previous.Menu\’Quit.to.System’),&Help,&Print , 

&Student],select). 

uackList is (’Artificial Intelligence’/Taciical Comp Systems’/Software Engineering’, 
’Military Data Processing’]. 

QirNum is (1,2,3,4,5.6,7.8.9.10.11,12). 

QuYear is (’91 1’,’91 2’,’91 3V91 4’.’92 1’.’92 2’,’92 3\’92 4’.’93 T.’93 2’,’93 3’,’93 4’]. 
Year is (’Win 9r/Spr 9r,’Sum 91’,’Fall 91’,’Win 92’.’Spr 92’.’Sum 92’.’Fall 92’, 

’Win 93’,’Spr 93’,’Sum 93’,’Fall 93’). 

QirName is (Winter.Spring.SummerJ^all). 

requiredCourse is (cs2970,cs3200,cs3300,cs3310.cs3320,cs3111,cs3450. 

CS3460). 
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disable_menu_item(?m 1 ,[&Print]) . 



sho w_windo w(? wmenu) . 

wh is window(,22, 14,46, 4„[Dialogwindow,visible]). 

text(’#n #fred Loading Data *). 

use_font(system_fom). 
make_modal(?wh). show_window(?wh). 

read_file(). close_window(). 

topic read_file. 

quarter is read(’QUARTER,TXT’). 

(* read file quarter.txt (quarter#, year, (course#)) 

It contains courses to be offered in each quarter *) 

coursel is read(’coursel.txt’). 

courseName is string_toJist(element(siring_to_list(?coursel,7/*)»2),*@’). 

coursel is string_tojist(element(string_tojist(?coursel,7/’)*l)0- 

course2 is read(’course.txt’), 

(* read file course.txt (CourseNumber, CourseName, 

creditLecture,creditLab, { prerequisite ) ,description), 
courseNumbers will be kept in list COURSE 1 and 
creditLec, creditLab, prerequisite will be kept in COURSE2 

*) 



trackel is read(TRACKELT.TXT’). 

(* read track required/elective courses *) 

SList is read(’studentl.txt’). 

SInfo is read(’std.txi’). 

(* read file student.txt that contains studentjd, name (kept in SList) and 
student Information(name,rank,section etc) kept in SInfo *) 

text(#e). track_name is ’ \ sid is []. snm is ’ 
end. 

topic select(item). 
do (?item). 

end. 

topic &Student. 

wh is window(, 15,10,60, l2„[Dialogwindow,visible]). 
use_font(system_font). 
make_modal(?wh). 
set_display_pos(8,2), 

text(’#fblue Select Student Id and name from the List : ’). 
list_box([?SList],input_student,8,4,32,5„t,list_select_event). 
button(Ok,commit,45,4, 10). 
button(Cancel,can,45,7, 1 0) . 
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end. 



topic can. close_window(). cancel(). end. 
topic input_studcnt(item). 

set_display_pos(27,10). tcxt(* ’). 

sel_display_pos(8,10). tcxt(*#fblue Studentjd & Name : ’). tcxt(?iiem). 

SKey is ?item. 
end. 

topic commit. 
close_windowO. 

sid is string_to_list(?skey). snm is concat(element(?sid,2)/ \clement(?sid,3)). 
sid is firsi(?sid). 

irackNo is string_to_list(element(?SInfo. where(?SList,?Skey)),7/*). 

ssc is elemeni(?trackNo.3). srk is element(?irackNo,2). 

strqtr is element(?trackNo,5). 

endqtr is string_toJisi(element(?trackNo,6)). 

SltCrs is string_to_list(element(?trackNo.7)/@*)- 
TknCrs is string_to_list(element(?trackNo,8)). 
trackNo is element(?trackNo,4). 
required is string_toJist(element(?trackel,?trackNo),7/’). 
elective is element(?required,2). 
required is element(?required,l). 
track_name is element(?trackList,? trackNo). 
dialogBoxQ. 

(* scarchs the information for selected student 

such as studentjd. name, track, selected courses, and 
courses that has already been taken *) 
end. 

topic dialogBox. 

(♦ displays the selection ♦) text(#e). 
set.display_pos(23,7) and texi(*#fblue Track : *). 
text(?track_name). 
set_display_pos(23,9). 
text(*#fblue Student-Id : ’)• text(?sid). 
set_display_pos(23.11). texi(’#fblue Name : ’)• text(?snm). 
button(Ok.SEARCHING .23.14.10). 
bullon(Cancel.cancel .40. 14.10). 
end. 

topic modify. close_window(). end. 

topic postpone. close_window(). cancelQ. end. 

topic searching. 

(♦ searchs the data associate with the selected student 
from fourth quarter up to 8lh ♦) 



Nu is element(?QtrNum. where(?QtrYear.?StiQtr)). 
SltCrs is string_loJist(?SltQs.*@’). 

Qtr4 is string_toJist(element(?SltCrs.l)). 
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Qtr5 is string_to_Iist(element(?SltCrs,2)). 

Qir6 is string_toJist(element(?SltCrs,3)). 

Qtr7 is string_to_list(eIement(?SltCrs,4)). 

Qtr8 is string_toJist(elemeiu(?SltCrs,5)). 

Fourth is string_to_list(element(string_to_list(element(?Quancr,?Nu),7/’),2)). 

Fifth is string_to_list(eIement(string_to_list(element(?Quaner,?Nu+l).7/’),2)). 

Sixth is string_to_list(element(siring_to_list(element(?Quarter,?Nu+2),7/’),2)). 

Seventh is string_to_list(elemem(string_to_list(element(?Quaner,?Nu+3),7/’),2)). 

Eighth is string_toJisi(element(string_to_list(eIement(?Quarter,?Nu+4),7/’),2)). 
display_headerO. 

process(4,elemem(?year,where(?qtmum,?Nu)),13,?Qtr4,?Fourth). 
process(5,elemem(?year,where(?qtmum,?Nu+ 1 )), 14,?Qtr5,?Fifth) . 
process(6,element(?year.where(?qtmum,?Nu+2)),15,?Qtr6,?Sixth). 
process(7,element(?year,where(?qtmum,?Nu+3)),16,?Qtr7,?sevenih). 
process(8,element(?year,where(?qtmum,?Nu+4)),17,?qtr8,?Eighth). 
text(#n). text(’ #fgray N #fblue = the course was not offered ’)• 

text(#n). text(’ #fgray P #fblue = prerequisite course should be taken first’)- 

button(Continue,cancel,72,21,9). 
end. 

topic process(Q,Y*L,courses,quaner). 

recordNo is Iist_lengih(?courses). no is 1. 
set_display_pos(2,?L). text(?Q). text(’ / ’)-text(?Y). R is 14. 
repeat 

cn is eIement(?courses,?no) and processl(?R) and r is ?r + 12 and 
no = ?no +1 
until ?no > TrecordNo. 
set_display_pos( 1,18). 
text(*#fblue 

’). 



topic process 1. 

getdata is string_to_list(element(?course2, where(?coursel, ?cn)),7/’)- 
prereq is element(?getdaia,3). 

if not(?prereq is ’ ’) then prereq is string_toJist(?prereq). 
checkprereq is different(?prereq,?tknCrs). 

if ?checkprereq is [] or ?checkprereq is [’ ’] then p is ’ ’ else p is ’#fgray P*. 
if not(intersect(?cn,?quarter) is []) then n is ’ ’ else n is ’#fgray N’. 
tkncrs is combine(?tknCrs,?cn). 
set_display_pos(?R,?L). 

if ?p is ’#fgray P’ or ?n is ’#fgray N’ then text(concat(’#m’,’#fgray ’,?cn,’#m’)) 
else text(concat(’#m’,?cn,’#m’)). 
text(’ ’)• text(?n). iext(?p). wait(,0.0001). 
end. 
end. 



topic display_header. 

disable.menu Jiem(?m 1 , [&Student]) . enable.menu Jiem(?m 1 ,[ &Print]) . 
text(’#e #fblue 
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COMPUTER SCIENCE (368) 

OPTION AREA DECLARATION AND COURSE SELECTION 



EMPHASIS AREA 
STUDENT-ID 
NAME 
RANK 
SECTION 



QUARTER COURSE COURSE COURSE COURSE COURSE COURSE 



set_display_pos(34,5). texi(’:*). set_display_pos(36»5). text(?track_name). 
set_display_pos(34,6). texi(*:*). set_display_pos(36,6). text(?sid). 
sei_display_pos(34.7). texi(’:*)‘ set_display_pos(36,7). text(?snm). 
set_display_pos(34,8). text(’;’). set_display_pos(36,8). texi(?srk). 
SET_DISPLAY_POS(34,9). TEXTC:*). set_display_pos(36.9). text(?ssc). 
row is 12. 
end. 



•#d *). 



topic cancel. 

text(#e). track_name is * \ sid is * snm is ’ 

disable_menuJtem(?mL[&Print]). enable_menu_item(?ml,[&Studem]). 
end. 

topic mark(item). 

wh is window(,l5,6,60,15„[Dialogwmdow,visible]). n is 2. 
dummy is list_of_char(?iiem). 

if listjength(?dummy) > 6 then item is elemeni(?courseL where(?courseName, ?item)). 
message is string_toJist(elemeni(?course2, where(?coursel, ?item)),7/*). 
text(’#n#fblue Course Number ’). seLdisplay_pos(17.?n). text(*: *)• text(?item). 
text(#n). n = ?n + 2. 

text(*#n#fblue Course Name ’)• set_display_pos(17,?n). texi(*: *). n = ?n + 2. 
text(element(?courseName, where(?coursel,?item))). text(#n). 
text(*#n#fblue Credit Lec/Lab ’). sei.display_pos(17»?n). text(*: *)• n = ?n + 2. 
text(rirst(string_toJisi(elemeni(?message.2)))). text(* / ’)• 
text(last(string_toJisi(element(?message,2)))). iext(#n). 

text(’#n#fblue Prerequisite ’). sei_display_pos(17,?n). texi(’: *)• n = ?n + 2. 
text(element(?message,3)). iext(#n). 

text(’#n#fblue Crs description *)• set_display.pos(17,?n). text(*: *)• 
text(elemeni(?message,4)). text(#n). 

text(* *)• text(elemeni(?message.5)). text(#n). 

use_font(system_foni). 
make_modal(?wh). show_window(?wh). 
button(Ok,continue,48, 13,10). 
topic continue. 

close_windowO. 

end. 

end. 

topic *Previous_menu*. 
new_file(’tempo.dat*). write(*tempo.dat\l). 
close_all0. 
close_windowO. 



104 



do(!main). 

end. 

topic ’quit_to_system*. 
close_allO. close_window(). 
clear(). 
end. 

topic & Print. 

print (get_text (?wmenu)). 
end. (*&Print*) 



topic &Help. 

wh is window(,ll,8,69,17„[Dialogwindow,visible]). 

text (#ejead (’info.hyp\ concat (7/’,optadec) ,7/*) ). 

seLfile.pos (*infoiiyp*,0,beginning). 

b2 is button(Ok,continue,30,15). 

set_focus(?b2). 

waitQ. 

close(*info.hyp’). close. windowQ. 
end. 

(♦ end OPTADEC.KB ♦) 



(♦ Program : offered.kb 
Author : suprapto 

*) 

wmenu is window(select:&quit,8,2,72,28„(Popup„ControlMenu,ThickFrame,ShowChildren,Siblings]). 
set.title(?wmenu, ’ELECTIVE COURSE OFFERED*). 

m 1 i s 

menu(I[E&xit,*Previous_Menu*,*Quit_to_system’],&Help,&Prmt,[&Quaner_Name,Winter,Spring,Summer,FallU&Year 

,*91’,*92*/93’]].select). 

disable.menu.i tem(?m 1 , [&Print]) . 

show.window(? wmenu). q is 0. y is 0. 

wh is window(,22, 14,46,4., [Dialogwindow.visible]). 

text(*#n #fred Loading Data *). 

use_font(system_font). 
make.modal(?wh). show.window(?wh). 
read_file(). close_window(). 

topic read.file. 
quarter is read(’quaner.txt’). 
coursel is read(*coursel.lxt’). 

courseName is string_toJist(element(string_toJist(?coursel,*//*).2),’@*). 
coursel is string_toJist(element(string_to_list(? coursel, *//’),!)). 
course2 is read(*course.txt*). 

(* read file course.txt (CourseNumber, CourseName, 

creditLecture.creditLab, {prerequisite } .description), 
courseNumbers will be kept in list COIHISEI and 
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creditLec, credilLab, prerequisite will be kept in C0URSE2 

*) 

texi(#e). 

end. 



topic select(item). 



do (?item). 

end. 

topic ’91’. year is ’91’. 
topic ’92’. year is ’92’. 
topic ’93*. year is ’93*. 



y is 1. dialogBoxQ. end. 
y is 1. dialogBoxO. end. 
y is 1. dialogBoxQ. end. 



topic ’Fair, quarters is ’Fall’, qcr is 4. q is 1. dialogBoxQ. end. 
topic ’Winter’, quarters is ’Winter’, qir is 1. q is 1. dialogBoxQ. end. 
topic ’Spring’, quarters is ’Spring’, qtr is 2. q is 1. dialogBoxQ. end. 
topic ’Summer’, quarters is ’Summer’, qtr is 3. q is 1. dialogBoxQ. end. 



topic dialogBox. 
if ?q is 1 then 

( if ?y is 1 then text(#e) and set_display_pos(28»6) and text(’#fred Your choice’) and 
set_display_pos(28,8) and text(’#fblue Quarter : *) and text(?quaners) and 
set_display_pos(28,10) and text(’#Fblue Year:*) and texi(?year) and 
button(Ok,SEARCHING,28.12,6) and 
button(Cancel,cancel,38, 1 2, 1 0) 

else set_display_pos(28,8) and text(’Quaner : ’) and text(?quarters) and 

set_display_pos(20,10) and text(’ Please select a academic year ! ’) ) 
else set_display_pos(28,8) and text(* Year:’) and text(?year) and 

set_display_pos(20,10) and text(* Please select a Quarter Name ! ’). 



end. 



topic searching. 

wh is window(,22»14,46,4„[Dialogwindow»visible]). 

text(’#n #fred Searching Data ’). 

use_font(system_font). 
make_modal(?wh). show_window(?wh). 

recordNo is list_length(?quarter). no is 1. header is 0. quarierList is []. data is []. 
repeat 

cn is element(?quarter,?no) and 
cn = string_toJist(?cn,’//’) and 
( if ( element(?cn,l) is concat(?year,’ ’,?qtr)) then 

quarterList is string_ioJist(rest(?cn)/ ’) and no is ?recordNo and 
quarierList is imersect(?quanerList,?coursel)) and 
no is ?no + 1 and data gets elcment(?cn,l) 
until ?no > TrecordNo. 

if ?quanerList is (] then data is list_to_string(?data,* ’) and 
message is ’1 -winter 2-spring’ 
else 

displayRecordQ. 

end. 

topic displayRecord. 
display_header(). 
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recordNo is lislJength(?quarterList). no is 1. 
repeal 

geidata is siring_io_lisi(element(?course2, where(?course 1 , element(?quarierList,?no)))///’) 

and cm is element(?courseName, where(?coursel» elemeni(?quarterLisu ?no))) and 

Lee is element(?getdata,2) and Lee is siring_io_list(?lec) and 

Lab is element(?Lec,2) and Lee is element(?Lec,l) and displayO and 

No = ?no +1 

until ?No > ?recordNo. enable_menu_item(?ml,[&Print]). 
disable_menuJiem(?ml,[E&xit,&Quarter_Name»&Year]). 

iexi(’#n#fblue 

button(continue, continue, 60, 22, 1 0). 
topic continue. texi(#e). 

enable_menu_item(?ml,[E&xit,&Quarter_Name,&Year]). 

disable_menu_item(?ml,[&Print]). 

end. 

end. 



(♦ *) 

topic display .header. 

close.windowO. 
text(*#e #fblue 



ELECTIVE COURSE OFFERED 
QUARTER NAME : YEAR : 

COURSE NO COURSE NAME CREDIT LEC/LAB 



sei.display.pos(33,4). text(?quaners). sei_display_pos(56,4). text(?year). 

row is 6. 

end. 



-#d ’). 



topic display, 
row is ?row+l. 

set.display.pos(5,?row). iext(element(?quarterLisi,?no)). 
set.display.pos(15,?row). text(?cm). 
set.display_pos(50,?row). text(?Lec). 

set.display_pos(52,?row). text(70- set.display.pos(54,?row). texi(?Lab). 
wait(,0.0000001). 
end. 

topic cancel. 

text(#e). y is 0. q is 0. 
end. 

topic ’Previous.menu’. 

new_file(’tempo.dai’). write(’tempo.dai",l). 
close.alK). close_window(). 
do(!main). 
end. 

topic ’quiLto.sysiem’. 

close.allQ. close^windowO- 
clearQ. 
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end. 



topic &Prini. 

prim (gei^text (?wmenu)). 
end. (*&Print*) 



topic &Help. 

wh is window(,ll,8,64.17,.[Dialogwindow,visible]). 
text (#e 4 'ead (’info.hyp\ concat (7/\quequart) ,7/*) ). 
set_file_pos (*info.hyp\0,beginning). make_modal(?wh). 
b2 is bution(Ok.continue,30,15). 
sei_focus(?b2). 
waitQ. 

close(’info.hyp*). close_window(). 
end. 

(* end offered .kb *) 



(♦ Program : genselec.kb *) 

wmenu is window(select:&quit,5.3,82,25„[Popup„ControlMenu,ThickFrame.ShowChildren, 

Siblings)). 

set_tiUe(?wmenu/ELECTIVE COURSE SELECTION*), 
ml is menu([[E&xit,’Previous_Menu’,*Quit_to_System’),&Help.&Print , 
[&Quarier,Winter,Spring,Suinmer,Fall], 
[&Year/9r/92’.*93’].&Student),select). 

trackList is [’Artificial Intelligence’/Tactical Comp Systems’, ’Software Engineering’, 
’Military Data Processing’). 

QtrName is [Winier,Spring,SummerJ^all). 

requiredCourse is [cs2970,cs3200,cs3310,cs3320,cs31 1 1,cs3450,cs3460,cs3502, 
cs360 1 ,cs3650,cs460 1 ) . 
disable_menu_ilem(?ml ,[&Print)). 



show_window(? wmenu) . 

wh is window(,22,14,46,4„[Dialogwindow,visible)). 

text(’#n #fred leading Data ’). 

use_font(system_fom). 
make_modal(?wh). show_window(?wh). 

read_file(). close_window(). 

topic read_file. 

quarter is read(’QUARTER.TXT’). 

(* read file quarter .ut (quarter#, year, (course#)) 

It contains courses to be offered in each quarter *) 

coursel is read(’coursel.txt’). 

courseName is string_toJist(element(string_toJist(?coursel,’//’),2),’@’). 
coursel is string_loJisi(elemeni(string_toJist(?coursel, ’//’),!),). 
course2 is read(’course.ut’). 
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(* read file course.Lxt (CourseNumber, CourseName, 

crediiLecture^crediiLab, { prerequisite ) ,description), 
courseNumbers will be kept in list COURSEl and 
creditLec. creditLab, prerequisite will be kept in COURSE2 



trackel is read(TRACKELT.TXT’). 

(* read track required/elective courses *) 

SList is read(*studentl.txt*). 

SInfo is read(’student.ut’). 

(♦ read file student.ut that contains studentjd, name (kept in SList) and 
student Information(name,rank.section etc) kept in SInfo *) 



text(#e). year is ’ \ quaners is * track_name is ’ sid is []. snm is * *. 
end. 

topic select(item). 
do (?item). 

end. 

topic &Student. 

wh is window(»15.10,60»12„[Dialogwindow.visible]). 
use_font(system_font) . 
make_modal(? wh) . 
set_display_pos(8,2). 

text(’#fblue Select Student Id and name from the List : ’). 
list_box([?SList],input_studenu8,4,32,5„Llist_select_event). 
button(Ok,commit,45 ,4,10). 
button(Cancel,can,45,7, 10). 

end. 

topic can. close_window(). cancel(). end. 
topic input_student(item). 

set_display_pos(27,10). text(’ ’)• 

set_display_pos(8,10). text(*#fblue Student Jd & Name : ’). text(?item). 

SKey is ?item. 
end. 

topic commit. 
close_windowO. 

sid is string_toJist(?skey). snm is concat(element(?sid,2),’ *,element(?sid,3)). 
sid is first(?sid). 

trackNo is string_to_list(element(?SInfo, where(?SList,?Skey)),7/*). 
ssc is element(?trackNo,3). srk is element(?trackNo,2). 
strqtr is string_toJist(element(?trackNo,5)). 
endqtr is string_toJist(element(?trackNo,6)). 

SltCrs is string_to_list(element(?trackNo,7)). 
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TknCrs is strmg_to_list(element(?trackNo,8)). 
trackNo is element(?trackNo,4). 
required is string_to_list(element(?trackel.?trackNo),7/*). 
elective is element(?required,2). 
required is element(?required,l). 
track_name is elemem(?trackList,?trackNo). 
dialogBoxQ. 

(* searchs the information for selected student 

such as student_id, name, track, selected courses, and 
courses that has already been taken *) 
end. 



topic *91*. 


year is *91*. 


dialogBoxQ. end. 


topic *92*. 


year is *92*. 


dialogBoxQ. end. 


topic *93*. 


year is *93*. 


dialogBoxQ. end. 


topic ’Fall*. 


quarters is 


’Fall*, q is *4*. dialogBoxQ. end. 



topic ’Winter’, quarters is ’Winter’, q is ’1’. dialogBoxQ. end. 
topic ’Spring’, quarters is ’Spring’, q is *2*. dialogBoxQ. end. 
topic ’Summer*, quarters is ’Summer*, q is *3*. dialogBoxQ. end. 



topic dialogBox. 

(* displays the selection ♦) text(#e). 
set_display_pos(23,4) and text(*#fblue Track 
text(?track_name). 

set_display_pos(23.6) and text(’#fblue Quarter 
text(?quarters). text(* ’). 
set_display_pos(23.8) and text(*#Fblue Year 
text(?year). 

set_display_pos(23, 10). 

text(*#fblue Student-Id : ’). text(?sid). 

set_display_pos(23,12). text(*#fblue Name 



: *). 
: ’). 



: *). text(?snm). 



(♦ check the student whether he/she is in the selected quarter or not ♦) 

if (not(?year is * *) and not(?Quarters is ’ ’) and not(?snm is ’ ’)) then 
( if (concat(?year,?q)) < list_to_string(?endqtr) + 1 and 
(concat(?year,?q)) > list_to_string(?strqtr) - 1 then 
button(Ok,SEARCHING,23,14,10) and 
button(Cancel,cancel.40. 14. 10) 

else wh is window(,22,l9,48,6„[Dialogwindow,visible]) and 
text(*#fred The quarter does not fix to the student *) and 

text(’#n #fblue Please select from ’) and iext(element(?QtrName,element(?strqtr,2))) and 
text(’ ’) and 

iext(element(?strqtr,l)) and text(’#fblue through ’) and 
text(element(?QtrName,element(?endqtr,2))) and text(* *) and 
text(element(?endqtr,l)) and 
use_font(system_font) and 

make_modal(?wh) and button(Modifyjnodify,10,4,10) and 

button(Cancel,postpone,30,4, 10)). 



no 



end. 



topic modify. close_window(). end. 

topic postpone. close_window(). cancel(). end. 

topic searching. 

(♦ searchs the data associate with the selected student 
track courses, selected courses, courses that has already 
been taken, courses has not been taken, courses offered in 
the selected quarter ♦) 

recordNo is list_length(?quarier). no is 1. header is 0. quanerList is []. 

(♦ combine required and elective course into topic ELECTIVE *) 
elective is combine(string_toJist(?elective),string_toJist(?required)). 

(* search quarter offering courses for selected quarter *) 
repeat 

cn is element(?quarter,?no) and 
cn = string_toJist(?cn,7/’) and 
( if element(?cn,l) is concat(?year,* \?q) then 
cn is string_toJist(rest(?cn),’ *) and 
quarterList is ?cn and 
no is ?recordNo -1) and 
No = ?no +1 
undl ?No is TrecordNo. 

if ?quarterList is [] then wh is window(,22,ll,46,2„[Dialogwindow, visible]) and 

text(’#fred Data Not Found*) and 

wait(,0.0001) and close.windowQ and 
enable_menuJtem(?ml,[&Year,&Quarter,&Student]) 

else yesDisplayQ. 

end. 

topic yesDisplay. 

(* displays the student information and course selection ♦) 
text(#e). 

set_display_pos(20,2). text(’#fblue Emphasis_Area : ’). text(?track_name). 
set_display_pos(20,3). text(’#fblue Qu^er / Year : ’). 
text(?quarters). text(* ’). text(?year). 

set_display_pos(20,4). text(’#fblue Student_Id : *). text(?sid). 
set_display_pos(20,5). text(’#fblue Student_name : ’). text(?snm). 
set_display_pos(l,8). courses is []. 

text(’#fblue Track Courses Selected Courses Have been taken Not been taken #fred Courses Offered*). 
list_box([combine(?requiredCourse,?electi ve) ] „3,9, 1 0„ut) . 
list_box([combine(?requiredcourse,?sltCrs)]„l9,9,10„t,t). 
list_box([?tknCrs]„36,9, 10„Ut) . 

notTkn is different(combine(?requiredCourse,?sltCrs), ?tknCrs). 
dif is different(?quarterList,?tknCrs). 

1 ist_box( [?notTkn] „53 ,9 , 1 0„l,t) . 

list_box([intersect(?notTkn,?dif)],input_data,70,9,10„UUlist_select_event). 
set_display_pos(25,l8). text(’#fblue Please select courses to be taken’). 
set_display_pos(25,l9). text(’#fblue from ”#fred Courses Offered" #fblue list_box !!’). 



Ill 



button(Ok,lookup,70, 17,10). 
button(Cancel,cancel,70,20, 10). 
disable_menuJiem(?ml,[&Year,&Quarter,&Student]). 

end. 

topic input_data(item). courses is ?item. end. 
topic displayinfo. 

wh is window(,22,ll,48,7„[Dialogwindow,visible]). 

text(’#n #fred Please select available courses offered *). 

use_font(system_font). 

make_modal(?wh). button(Try again’,modify,10,4,l2). button(Cancel,postpone,30,4,10). 
end. 

topic lookup. 

if ?courses is [] then displayInfoO 
else searchDataO- 

end. 

topic SearchData. 

wh is window(,22,l5,46,4„[Dialogwindow,visible]). 

text(’#n #fblue Searching data ’)• 

use_font(system_font). 
make_modal(?wh). show_window(?wh). 
recordNo is listJength(?courses). no is 1. header is 0. 
repeat 

getdata is string_toJist(element(?course2, where(?coursel, element(?courses,?no))),7/’) 
and cm is element(?courseName, where(?coursel, element(?courses, ?no))) and 
Lee is element(?getdata,2) and Lee is string_toJist(?lec) and 
Lab is element(?Lec,2) and Lee is element(?Lec,l) and 
prereq is element(?getdata,3) and 

( if not(?prereq is ’ ’) then prereq is string_to_list(?prereq)) and 
displayO and 
no = ?no + 1 
until ?no > ? recordNo. 
button(Continue,continue,72,2 1 ,9) . 

(♦ if checkPrereq is [] then 

new^taken is concat(?tkn_Crs,’ ’,list_to_string(?courses,’ ’)) and 
takenCrs is replace(?takenCrs, element(?takenCrs, where(?scn,?sid)),?new_taken). 

♦) 

topic continue. 

enable_menuJtem(?ml,[&Year,&Quarter,&Student]). cancel(). 
end. 
end. 



topic display_header. close_windowO. 
text(*#e #fblue 

ELECTIVE COURSE SELECTION 



EMPHASIS AREA 
QUARTER / YEAR 
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STUDENT-ID 

NAME 

RANK 

SECTION 

COURSE NO COURSE NAME CREDIT LECA-AB REMARK 

-#d ’). 

set_display_pos(34,5). iexi(’:’)- set_display_pos(36.5). iexi(?irack_name). 
sei_display_pos(34,6). iexi(’:’). set_display_pos(36.6). iexi(?quarters). 
texi(* / * ). text(?year). 

sei_display_pos(34,8). texi(’:’). set_display_pos(36,8). iexi(?sid). 
set_display_pos(34,9). texi(’:’). sei_display_pos(36,9). iext(?snm). 
set_display_pos(34,10). text(’:’). set_display_pos(36»10). iext(?srk). 

SET_DISPLAY_POS(34,ll). TEXT(’:’). sei_display_pos(36.11). texi(?ssc). 

row is 14. 

end. 



topic display. 

if ?header is 0 then header is 1 and enable_menu_item(?ml,[&print]) and 

display .header 0. 

row is ?row+l. checkPrereq is different(?prereq.?lknCrs). 
if ?checkPrereq is [] or ?checkPrereq is [* ’] 

then remark is ’ valid ’ and display.validQ 

else remark is concat(’not valid, prereq \element(?CheckPrereq.l)) and 
display.invalidO. 

end. 

topic display .valid. 

set.display.pos(5,?row). text(concat(*#m\element(?courses.?no)/#m’)). 
set.display.pos( 18,?row). text(concat(’#m’.?cm,’#m’)). 
set_display_pos(50,?row). text(?Lec). 

set_display.pos(52.?row). text(7*)- set.display.pos(54.?row). text(?Lab). 
set.display.pos(58.?row). text(?remark). wait(.O.OOOl). 
end. 

topic display.invalid. 
set.display.pos(5.?row). 

text(concat(*#m\’#fgray ’,element(?courses,?no),*#m’)). 
set.display_pos(18,?row). text(concat(*#m’.*#fgray \?cm.’#m’)). 
set_display.pos(50.?row). text(concat(*#fgray \?1^)). 
set_display.pos(52,?row). text(V’)- set.display.pos(54.?row). 

text(concai(’#fgray \?Lab)). 

set.display.pos(58.?row). text(concat(’#fgray ’,?remark)). wait( .0.0001). 
end. 

topic cancel. 

text(#e). year is ’ *. quarters is ’ ’. irack.name is ’ ’. sid is ’ ’. snm is ’ *. 
disable.menu.item(?ml.[&Print]). enable.menu.item(?ml.[&Year.&Quarter,&Student]). 
end. 

topic mark(item). 

wh is window(,l 5.6.60. l5..Pialogwindow.visible]). n is 2. 
dummy is list.of_char(?item). 

if list_length(?dummy) > 6 then item is element(?coursel. where(?courseName. ?item)). 
message is string.to.list(element(?course2. where(?coursel. ?item)).7/*)- 
text(*#n#fblue Course Number *)• set_display.pos(l7.?n). text(’: ’)• text(?item). 
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iexi(#n). n = ?n + 2. 

texi(’#n#fblue Course Name ’)• set_display_pos(17,?n). text(*: ’). n = ?n + 2. 
iext(elemeni(?courseName, where(?coursel,?item))). text(#n). 
text(’#n#fblue Credit Lec/Lab *)• set_display_pos(17,?n). text(*: *). n = ?n + 2. 
text(first(string_to_list(elemeni(?message,2)))). text(* / *). 
text(last(string_loJist(element(?message,2)))). iext(#n). 

text(*#n#fblue Prerequisite ’). set_display_pos(l7,?n). text(*: *). n = ?n + 2. 
text(element(?message,3)). text(#n). 

text(*#n#fblue Crs desaiption *). set_display_pos(17,?n). text(’: ’)• 
text(element(?message,4)), text(#n). 

text(* *)• text(element(?message,5)). text(#n). 

use_font(system_font). 
make_modal(?wh). show_window(?wh). 
button(Ok,continue,48, 13,10). 
topic continue. 

close_windowO. 

end. 

end. 

topic ’Previous_menu\ 

(* updateFileO- *) 

new_file(’tempo.dat’). write(’tempo.datM). 
close_all0. 
close_windowO. 
do(!main). 
end. 

topic updateFile. 

length is listjength(?scn). no is 1. courses is []. 
repeat 

courses gets element(?seIectedCrs,?no) and 
courses gets element(?takenCrs,?no) and no = ?no +1 
until ?no > ?length. 

new_file(*student.Ut*). write(’studem.ut’,?courses). 
end. 

topic ’quit_to_system’. 

(* updateFileO. *) 
close_all0* close_window(). 
clear(). 
end. 

topic &Print. 

print (get_text (?wmenu)). 
end. (*&Print*) 



topic &Help. 

wh is window(,l 1,8,69, l7„[Dialogwindow,visible]). 

text (#ejead (Mnfoiiyp*, concat (7/\quegener) ,7/0 ). 

set_file_pos (’infoiiyp’,0,beginning). 

b2 is button(Olc,continue,30,15). 

set_focus(?b2). 

waitQ. 
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close(’info.hyp’). close_windowO. 
end. 



(* end GENSELEC.KB 



*) 
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